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The  findings  in  this  report  are  not  to  be  construed  as  an 
official  Department  of  the  Army  position  unless  so 
designated  by  other  authorized  documents. 


This  program  package  is  furnished  by  the  Government  and 
is  accepted  and  used  by  the  recipient  with  the  express 
understanding  that  the  United  States  Government  makes 
no  warranties,  expressed  or  implied,  concerning  the 
accuracy,  completeness,  reliability,  usability,  or  suitability 
for  any  particular  purpose  of  the  information  and  data 
contained  in  this  program  or  furnished  in  connection 
therewith,  and  the  United  States  shall  be  under  no  liability 
whatsoever  to  any  person  by  reason  of  any  use  made 
thereof  The  program  belongs  to  the  Government 
Therefore,  the  recipient  further  agrees  not  to  assert  any 
proprietary  rights  therein  or  to  represent  this  program  to 
anyone  as  other  than  a  Government  program 


The  contents  of  this  report  are  not  to  be  used  for 
advertising,  publication,  or  promotional  purposes. 
Citation  of  trade  names  does  not  constitute  an 
official  endorsement  or  approval  of  the  use  of  such 
commercial  products 
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DEPARTMENT  OF  THE  ARMY 

WATERWAYS  EXPERIMENT  STATION.  CORPS  OF  ENGINEERS 
P  O  BOX  831 

VICKSBURG.  MISSISSIPPI  3*180 -OUlt 


WE5GR-R  a  Nov  1985 

STATUS  OF  COMPUTER  APPLICATIONS  IN  GEOTECHNICAL  ENGINEERING 

CAGE  PROJECT 


The  status  of  CAGE  data  base  packages  is  summarized  on  the 
attached  chart  (Enel  1).  Revision  o-f  the  boring  log  plot  to  add 
blow  counts  and  a  short  form  o-f  the  data  base  are  shown  in  Enel  2 
Menus  -for  the  complete  data  entry  modules  for  the  instrumentation 
package  on  both  the  Harris  and  micro  is  shown  in  Enel  3.  Menus 
for  a  complete  (simplified)  version  of  grouting  package  using 
Los  Angeles  District  forms  for  New  River  Dam  is  shown  in  Enel  4. 

The  status  of  the  slope  stability  package  work  is  summarized 
on  Enel  5. 


MAKE  YOUR  HIGH  PRIORITY  NEEDS  KNOWN. 

Contacts:  Bill  Strohm,  WESGR ,  FTS  542-2604 

Earl  Edris,  WESGE,  FTS  542-3378 


HYDRAULICS 

LABORATORY 


geotechnical 

LABORATORY 


STRUCTURES 

LABORATORY 


ENVIRONMENTAL 

LABORATORY 


coastal  ENGINEERING 
RESEARCH  CENTER 


STATUS  OF  C  'A  6  E  DATA  PACKAGES 
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DATA  PACKAGE 


Boring  &  Subsurface 


Instrumentation: 
Piezometers,  staff 
gage,  weir,  sump, 
rainfall,  weather 
Surface  monuments 
Settlement  gages 
Incl inometers 
Stress  meters 
Strain  gages 
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4080  Form,  Shotgun, 

many  other  statistical, 

It  querry  general  x-y 

(C)  (C) 

(None  planned) 


(Creates  file  for  CDC  version)  (C) 


Notes:  (1)  Graphics  programs  on  CDC 


Question  Sc  answer 

Screen  form  to  fill  in 

Mi crocomputer  with  dBASE  II 

Mi crocomputer  with  dBASE  III 

Completed 

Being  Developed 

Planned 

All  instrument  types 


will  be  moved  to  the 
Harris;  also  to  the 
microcomputer  using 
mi cro-TEMPLET  or  micro-GCS. 

(2)  Includes  programs  to 
retrieve  data  from 
CDC  version. 
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LOG  of  strata  names  and  descriptions,  vertical  SCALE  =  10  FT/IN 
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♦  PROD:  COM  * 

♦  SITE:  ROB  ♦ 
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HOLE  NO.  FS502 


1  DIVISION 

DRILLING  LOG  !  Southwestern 

INSTALLATION  !  SHEET 

Tulsa  District  1  OF 

1.  PROJECT  TRAINEE  BARRACKS  #265 

SITE 

DESCRIP. 

10.  SIZE  AND  TYPE  OF  DRILL 

11.  DATUM  FOR  ELEVATION  FT  MSL 

2.  LOCATION  (Coordinates  or  Station) 
1881050.0  N  483370.0  E 

12.  MANUFACTURE'S  DESIGNATION  OF  DRILL 

3.  DRILLING  AGENCY 

USCE 

13.  TOTAL  NO.  OF  OVER-  DIST.  UNDIST. 

BURDEN  SAMPLES 

4.  HOLE  NO.  FS502 

14.  TOTAL  NO.  OF  CORE  BOXES  0 

5.  NAME  OF  DRILLER 

15.  ELEVATION  GROUND  WATER 

6.  DIRECTION  OF  HOLE 

VERTICAL  __  DEG  FROM  VERTICAL 

16.  DATE  HOLE  STARTED  COMPLETED 

10/04/1983 

7.  THICKNESS  OF  OVERBURDEN  0.0 

17.  ELEVATION  TOP  OF  HOLE  1103.4 

8.  DEPTH  DRILLED  INTO  ROCK  0.0 

18.  TOTAL  CORE  RECOVERY  FOR  BORING  0.07. 

9.  TOTAL  DEPTH  OF  HOLE  44.5 

19.  INSPECTOR  JABARA 

srtot-7~  foam  &f- 

5  T&PS  -ZVU 


DATA  SAZtr  re 
/\r  Top  o>P  £hj6  FDA 


INSTRUMENTATION  DATA  BASE  MENU 
SUMMARY  OF  PROCEDURES-  ------------- 

ENTER  NEW  DATA  OF  MODIFY  EXISTING  DATA  -  -  - 

PLOT  DATA-  --  -  ------------- 

PRINT  SUMMARY  REPORTS-  ------------- 

RETURN  TO  OPERATING  SYSTEM  - - 

ENTER  SELECTION:  :2 


ENTER  NEW  DATA  OR 
MODIFY  EXISTING  DATA 

PROJECT  DATA . . 

PIEZOMETER  - 

SURFACE  MONUMENTS - 

SETTLEMENT  POINTS . 

INCLINOMETERS . 

SOIL  PRESSURE  METERS  . 

STRAIN  GAUGES . 

ALL  INSTRUMENTS - 

EXIT  TO  MAIN  MENU  ------ 

ENTER  SELECTION: 

ADD  OR  MODIFY 
PIEZOMETER  DATA 

ADD  INSTRUMENT  DATA 

MODIFY  EXISTING  INSTRUMENT  DATA 

ADD  NEW  READINGS 

BE  PROMPTED  FOR  SETS  OF  READINGS 
EXIT  TO  PREVIOUS  MENU 
EXIT  TO  OPERATING  SYSTEM 


SELECTION 
-  1 
-  2 

-  3 

-  4 

-  5 

-  6 

-  7 

-  8 

-  9 


SELECTION 

1 

2 

3 

4 

5 

6 


. «  aJY  *-T, 
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Enter  Selection 


VERSION  OF  GROUT  DATA  BASE  FUR  LOS  ANGELES  DISM. KL'T  FuRI'l 

MENU  FOR  ENTERING  NEW  GROUTING  RECORD  DA i A 

OR  REVIEWING,  OR  EDITING  EXISTING  DATA  Selection 

PROJECT  AND  GROUT  HOLE  DATA  ------------  -  -  1 

DRILLING  RECORD  ----------  -  -  -  -  -  ~  -  -  -  -  2 


PRESSURE  TEST  DATA  -------------------  3 

GROUTING  DATA  -  --  --  --  --  --  --  --  --  -----4 

PRINT  GROUTING  REPORTS  ---------  -----  -----  5 

RETURN  TO  OPERATING  SYSTEM  ---------------9 


Enter  Selection  1 


L.  A.  DIST  PROJECT  AND  DRILLING  DATA  Last  Record  Entered. 


PROJECT  LOCATION  STATION  OFFSET 

NEW  RIVER  DAM  CORE  TRENCH  <W)  30+00  3. BPS 

ELEVATION  HOLE  NO. 

1351 . 2  3 0+0 OP 

INCLINATION  DIAMETER  DEPTH  NIPPLE  DATE  DRILLED  DATE  PRESSURE  TESTE: 

30 W  S72W  2.5  01/23/84  01/24/84 

DATE  GROUTED  DEPTH  INTERV.  ZONE  TAKE  (PLACED)  WASTED  PERM,  k - 

01/24/84  50-75  III  2.7  O . 0  O . 40 


TO  ENTER  NEW  F'ROJ/HOLE  DATA  OR  EDIT,  REVIEW,  OR  PRINT  EXISTING  INFO 
1  =  enter  new  data  2  “  edit  data  shown  above, 

3  =  review  or  edit  another  hole  number, 

4  -  skip  back  one  record,  5  =  skip  ahead  one  record, 

6  -  print  a  record,  7  -  e:;it. 

enter  action  number: 


tA >CL 


r 


I'  ■  .'KM 


vfch't;  ION  OF  :  jf<uU  1  Dm  I  h  dHbt.  !-  ijR  ANGELES  ij  L  3  !  i.  R 

M  t-  N U  F  U  R  L  N  f  t  K  l  N  u  N  E.  W  G  R  u  U  I  I N  6  R  E  L  0  ft  D  D  h  T  A 

OK  REVIEW  I NO ,  OR  EDITING  EXISTING  DATA  Select! or 

PRQ..JEC  V  AND  GROUT  HOLE  DAT  A  -  ----  -  -  _  _  _  _  .  _ . L 

DRILLING  RECORD  .  _  _  ...  . . ...  ^ 

PRESSURE  TEST  DATA  -----  --  —  ~  -  _  _  ...  _____  _  ...  _ 

GROUTING  DATA  ------  ...  ...  _  _  _  _  ....  ...  _  _  4 

PRINT  GROUTING  REPORTS  -------------  -----  s 

RETURN  TO  OPERATING  SYSTEM  _  9 

Enter  Selection  5 


VERSION  OF  GROUT  DATA  BASE  FOR  LOS  ANGELES  DISTIRCT  FORMS 


MENU  FOR  PRINTING  GROUTING  REPORTS  Selection 

FIELD  GROUTING  RECORD  FOR  HOLE  AND  DEPTH  INTERVAL-  -  -  -  1 
DRILLING  AND  GROUTING  SUMMARY  FOR  HOLE  RANGE  ------  2 

DAILY  PAY  ITEM  RECORD  FOR  SELECTED  DATE-  --------  3 

RETURN  TO  DATA  ENTRY  MENU  ---------------4 

RETURN  TO  OPERATING  SYSTEM  ---------------9 


Enter  Selection:  2 
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NEk  RIVER  DAM,  ARIZONA  -  FOUNDATION  GROUTING  SUMMARX 


hGLE  I 

.OCATION 

G.  S.  INCLIN/ 

PRESSURE  TESTIN6 

DATE 

GROUTING 

HOwE  number 

STATION 

OFFSET 

ELEV.  BEARING 

DEPTH 

FLOW 

PRESS 

K  VALUE 

6RQUTED 

TAKE 

PRESS. 

MIX 

(ft) 

(ft) 

(qpt) 

<psi  > 

fft/day) 

(sacks) 

tpsi ) 

Ut/C) 

29+80P 

29+80 

7.0LN 

1352.5  VERT. 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

0.50 

15.0 

0.05 

01/13/84 

1.3 

15.0 

6:1 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

16.30 

25.0 

0.90 

01/24/84 

62.3 

10.0 

1:1 

MINIMUM 

25.0 

6:1 

MAXIMUM. 

29+82. 5T 

29+81 

8.0LN 

1353.3  7.5N 

0-50 

0.21 

15.0 

0.02 

DEFERRED 

MINIMUM 

MAXIMUM 

50-75 

0.10 

25.0 

0.01 

DEFERRED 

MINIMUM 

MAXIMUM 

29+85S 

29+85 

6.0LN 

1352.5  15H 

0-50 

5.50 

15.0 

0.50 

01/18/84 

0.6 

0.0 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

5.10 

25.0 

0.03 

01/27/84 

5.2 

0.0 

MINIMUM 

25.0 

6:1 

MAXIMUM 

29+87. 5T 

29+88 

5.5LIN) 

1352.5  22.5N 

0-50 

0.00 

15.0 

0.01 

DEFERRED 

MINIMUM 

MAXIMUM 

50-75 

0.25 

25.0 

0.02 

DEFERRED 

MINIMUM 

MAXIMUM 

29+90P 

29+92 

4.8LN 

1351.6  30N  S77N 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

2.70 

15.0 

0.30 

01/14/84 

10.1 

15.0 

4:1 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

7.80 

25.0 

0.50 

01/24/84 

10.7 

25.0 

6:1 

MINIMUM 

25.0 

6:1 

MAXIMUM 

29+95S 

29+97 

4.5LN 

1352.1  30N 

0-50 

2.40 

15.0 

0.17 

01/18/84 

0.9 

0.0 

MINIMUM 

15.0 

6:1 

MAXIMUM 

30+00P 

30+00 

3.8RS 

1351.2  30*  S72N 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

2.20 

15.0 

0.40 

01/14/84 

2.2 

15.0 

6:1 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

0 

0 

0.00 

01/24/84 

2.9 

25.0 

6:1 

MINIMUM 
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lEN  RIVER  DAM,  ARIZONA  -  FOUNDS  HON  GROUTING  SUMMARV 


tiCLE  L 

.OCATION 

6.  3.  INCLIN/ 

PRESSURE  TESTIN6 

DATE 

GRQUTIN6 

HOLE  NUMBER 

STATION 

OFFSET 

ELE V .  BEARING 

DEPTH 

FLOW 

PRESS 

K  VALUE 

GROUTED 

TALE 

PRESS. 

MIX 

(Ft) 

(ft) 

(qpi) 

( P  5  i  ) 

(ft/day) 

(sacks) 

ipsi) 

(14/C) 

29+80P 

29+80 

7.0LN 

1352.5  VERT. 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

0.50 

15.0 

0.05 

01/13/84 

1.3 

15.0 

6:1 

MINIMUM, 

15.0 

6:1 

MAX  IM'JM 

50-75 

16.30 

25.0 

0.90 

01/24/84 

62.3 

10.0 

1:1 

MINIMUM 

25.0 

6:1 

MAXIMUM 

29+82. 5T 

29+81 

8.0LN 

1353.3  7.58 

0-50 

0.21 

15.0 

0.02 

DEFERRED 

MINIMUM 

MAXIMUM 

50-75 

0.10 

25.0 

0.01 

DEFERRED 

MINIMUM 

MAXIMUM 

29+85S 

29+85 

6.0LN 

1352.5  15(4 

0-50 

5.50 

15.0 

0.50 

01/18/84 

0.6 

0.0 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

5.10 

25.0 

0.03 

01/27/84 

5.2 

0.0 

MINIMUM 

25.0 

6:1 

MAXIMUM 

29+97. 5T 

29+88 

S.SL(N) 

1352.5  22. 5« 

0-50 

0.00 

15.0 

0.01 

DEFERRED 

MINIMUM 

MAXIMUM 

50-75 

0.25 

25.0 

0.02 

DEFERRED 

MINIMUM 

MAXIMUM 

29+90P 

29+92 

4.8LN 

1351.6  30W  S77N 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

2,70 

15.0 

0.30 

01/14/84 

10.1 

15.0 

4:1 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

7.80 

25.0 

0.50 

01/24/84 

10.7 

25.0 

6:1 

MINIMUM 

25.0 

6:1 

MAXIMUM 

29+95S 

29+97 

4.5LN 

1352.1  30H 

0-50 

2.40 

15.0 

0.17 

01/18/84 

0.9 

0.0 

MINIMUM 

15.0 

6:1 

MAXIMUM 

30+OOP 

30+00 

3.8RS 

1351.2  30(4  S721I 

0-25 

0.00 

15.0 

0.00 

DEFERRED 

0.0 

MINIMUM 

0.0 

MAXIMUM 

25-50 

2.20 

15.0 

0.40 

01/14/84 

2.2 

15.0 

6:1 

MINIMUM 

15.0 

6:1 

MAXIMUM 

50-75 

0 

0 

0.00 

01/24/84 

2.9 

25.0 

6:1 

MINIMUM 

r  / 
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CORPS- WIDE  SLOPE  STABILITY  PACKAGE. 

o  SINCE  1 983 ,  I ASK  GROUP  HAS  REVIEWED  EXISTING  PROGRAM 

o  COMPLETED  A  CRITERIA  DOCUMENT  (WES  MI  SC.  PAPER  GL-85 
(DISTRIBUTED  TO  ALL  DISTRICTS  AND  DIVISIONS) , 

a  RECOMMENDED  THREE  INTERIM  PROGRAMS,  ON  CORPS  LIBRARY 

*  SSTAB2  ~  SPENCER'S  METHOD  1 0026 

*  STABR  -  MODIFIED  BISHOP'S  METHOD  10027 

*  DGSLOPE  -  MODIFIED  SWEDISH  METHOD,  10025 

(KANSAS  CITY  ARC  AND  WEDGE) 

O  SELECTED  "UTEXAS"  TO  BE  MODIFIED  TO  MEET  CRITERIA 
FOR  ONE  TIME  DATA  ENTRY,  GRAPHICS  CHECK,  USE  OF 
ANY  OF  THE  ABOVE  THREE  METHODS,  AND  COMPLETE 
TABULAR  AND  GRAPHICS  OUTPUT. 

o  MODIFIED  BISHOP  AND  MODIFIED  SWEDISH  CIRCULAR  AND 
NON-CIRCULAR  SEARCH  HAVE  BEEN  ADDED.  OPERATES 
ON  CDC ,  HARRIS,  AND  MICRO'S.  DRAFT  USER'S  GUIDE 
COMPLETED. 

a  DURING  FY  86,  USER'S  GUIDE  (WITH  THEORY,  EXAMPLES, 
AND  HAND  CHECKS),  AND  GRAPHICS  MODULE  WILL  BE 
COMPLETED.  TO  BE  RELEASED  APRIL  1986. 
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CONVERSION  FACTORS,  NON-SI  TO  SI  (METRIC) 

UNITS  OF  MEASUREMENT 

Non-SI  units  of  measurement  used  in  this  report  can  be  converted  to  SI  (metric)  units  as 
follows: 

Multioly  By  To  Obtain 


feet 

0.3048 

metres 

inches 

2.54 

centimetres 

pounds  (force)  per  square  inch 

6.894757 

kilopascals 

pounds  (mass)  per  cubic  foot 

16.01846 

kilograms  per  cubic  metre 

MICROCOMPUTER  BORING  AND  SUBSURFACE  DATA  PACKAGE: 

USER'S  GUIDE 


PART  I:  INTRODUCTION 
Purpose 

I.  The  purpose  of  this  report  is  to  provide  a  description  and  instructions  for  the 
use  of  the  microcomputer  version  of  the  boring  information  and  subsurface  data  package 
entitled  BORDBM.  The  package  was  developed  for  Corps-wide  use  under  the  Computer 
Applications  in  Geotechnical  Engineering  (CAGE)  project.  This  report  must  be  used  in 
conjunction  with  other  applicable  instructions  regarding  the  microcomputer  operating 
system  and  instructions  for  creating  and  manipulation  of  a  data  base  using  a  software 
package  called  dBASE  II  (trademark  of  Ashton-Tate). 

Basic  Definitions 


2.  A  data  base  can  be  defined  as  items  of  information  and  groups  of  data  values 
stored  together  in  an  orderly  form  such  that  access  to  all  or  any  part  of  the  information 
or  data  can  be  readily  accomplished.  Boring  logs  and  field  and  laboratory  test  data 
stored  in  a  filing  cabinet  could  be  classified  as  a  simple  form  of  a  data  base.  A  compu¬ 
terised  data  base  is  one  that  uses  a  computer  and  associated  hardware  for  data  entry, 
storage,  and  access.  A  data  base  package  includes,  in  addition  to  the  data  base  itself,  all 
peripheral  software  that  enables  the  data  not  only  to  be  quickly  and  orderly  stored,  but 
also  accessed,  manipulated  (or  analyzed)  by  the  most  useful  means,  and  dis¬ 
played  in  the  most  useful  manner  for  the  user.  A  data  base  package  can  therefore  be 
categorized  as  an  engineering  tool.  It  can,  if  properly  used,  be  a  powerful  tool  that 
greatly  enhances  the  usefulness  and  value  of  geotechnical  information  and  data. 

Background 

3.  The  initial  boring  and  subsurface  data  package  was  first  used  in  1982  and 
refinements  and  a  user's  guide  were  completed  in  1984.  The  US  Army  Engineer  District, 
Savannah  served  as  the  pilot  district  and  used  the  package  on  the  Corps-wide  time¬ 
sharing  system  to  store  data  for  several  military  installations  and  projects.  Other 


Districts  are  using  the  package  for  military  and  civil  works  projects.  The  microcomputer 
version  was  started  in  1983  and  modified  in  1985  to  match  the  mainframe  version.  A 
special  set  of  programs  (package)  was  developed  to  allow  transfer  of  data  from  the 
Corps-wide  time-sharing  system  to  the  microcomputer  system. 


>iication 


4.  The  data  base  package  BORDBM  is  intended  to  provide  a  convenient  means  for 
storing  data  from  field  subsurface  investigations  and  laboratory  tests  and  then  displaying 
desired  data  in  the  form  of  tables  or  graphic  plots  useful  in  the  design  of  facilities.  The 
primary  benefit  is  that  the  type  and  extent  of  subsurface  information  existing  in  a  given 
area  can  be  quickly  determined  for  a  new  project.  Selected  data  can  be  displayed  and 
used  in  design  studies  and  additional  data  needs  can  be  readily  determined. 


Computer  Requirements 


5.  The  boring  data  base  programs  have  been  written  using  dBASE  II  (trademark  of 
Ashton-Tate)  software  on  a  microcomputer  with  the  MS-DOS  (trademark  of  Microsoft 
Corp.)  or  the  CP/M  (trademark  of  Digital  Research,  Inc.)  operating  system.  The  micro¬ 
computer  should  have  a  10-megabyte  hard  disk  to  provide  sufficient  storage  for  a  large 
number  of  borings.  "As  a  rough  estimate,  5,260  bytes  are  required  for  storage  of  data 
from  one  boring  (see  para.  14).  A  dot  matrix  printer  is  needed  for  simple  plots  and  sum¬ 
mary  tables.  Future  graphics  enhancements  will  require  an  x-y  plotter. 


Report  Organization 


6.  The  remainder  of  this  report  is  divided  into  two  parts.  Part  II  describes  data 
entry  and  storage  and  Part  III  describes  data  retrieval  and  display.  Examples  of  data 
entry  are  shown  in  Appendix  A.  Special  instructions  for  record  deletion  are  given  in 
Appendix  B.  Appendix  C  gives  examples  of  boring  location  plots  and  data  reports,  while 
the  retrieval  of  data  from  the  version  on  the  Corps-wide  time-sharing  system  is  shown  in 
Appendix  D.  A  complete  listing  of  all  BORDBM  programs  appears  in  Appendix  E. 
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PART  II:  DATA  ENTRY  AND  STORAGE 

Data  Base  Structure 

7.  The  proprietary  software  (dBASE  II  by  Ashton-Tate)  used  to  develop  the 
microcomputer  version  of  the  boring  data  package  is  a  relational  type  of  data  base  sys¬ 
tem.  It  uses  a  file  structure  that  can  be  visualized  as  a  table  with  columns  for  variables 
(called  fields)  and  rows  (records)  for  values  of  the  variables.  The  structure  for  each  data 
base  file  is  created  by  naming  the  fields,  defining  their  type  (character  or  numeric)  and 
their  size  (number  of  characters  or  digits  and  decimal  places).  Under  dBASE  II,  only  32 
fields  per  file  can  be  used  and  several  data  base  files  were  used  for  the  BORDBM 
package. 

8.  A  diagram  of  the  files  for  BORDBM  is  shown  in  Figure  I.  The  type  of  data 
stored  in  each  file  is  shown  in  Figure  2.  General  information  for  the  boring  is  stored  in 
the  first  file  (BORMAIN.DBF)  while  specific  data  of  the  types  shown  in  Figure  2  is  stored 
in  the  other  files.  The  data  types  are  very  similar  to  those  shown  in  Table  I  of  Instruc¬ 
tion  Report  GL-84-1.*  In  both  the  time-sharing  version  and  the  micro  version  depths  can 
be  entered  and  converted  to  elevation  when  the  top  of  hole  elevation  has  been  stored. 
However,  in  the  time-sharing  version,  only  elevations  are  stored;  whereas,  in  the  micro 
version  both  depths  and  elevations  are  stored. 

Data  Entry 

9.  Data  entry  makes  use  of  the  full-screen  editing  feature  of  dBASE  II  that  allows 
a  form  to  be  shown  on  the  monitor  screen  and  lets  the  user  fill  in  the  blanks.  The  data 
entry  segment  of  BORDBM  is  menu  driven.  The  main  menu  selections  and  data  entry 
submenu  for  selection  2  are  shown  in  Figure  3. 

10.  When  a  new  boring  is  entered,  the  boring  number  is  checked  for  duplicates  in 
the  data  base.  If  duplicates  occur,  the  user  is  given  the  option  of  seeing  the  project  and 
site  names  and  project  description  or  reentering  a  different  boring  number.  A  unique 
system  identification  number  (SID)  is  automatically  assigned  to  each  new  boring  and 
after  the  boring  information  is  entered,  key  information  is  copied  to  a  special  data  base 


*  William  E.  Strohm,  Jr.  and  John  B.  Palmerton.  1984.  "Boring  Information  and 
Subsurface  Data  Base  Package:  User's  Guide,  Instruction  Report  GL-84-1,  U.S. 
Army  Engineer  Waterways  Experiment  Station,  Vicksburg,  Mississippi. 
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Figure  2. 
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SUHRARY  OF  BORIN6  DATA  BASE  PROCEDURES  - 
ENTER  NEW  DATA  OR  EDIT  EIIST1N6  DATA  -  - 
LOCATE  BORIN6S  NITHIN  GIVEN  COORD'S  -  - 
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PLOT  LOS  OF  BORINS <S> . 

PRINT  SUHRARY  REPORTS  OF  DATA  - 
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BORING  INFORMATION  . 
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TEST  RESULTS  . 
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5  *  skip  back  one  boring,  6  -  print  a  boring,  7  *  eiit 
Enter  action  nueber: 
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data  base  package 
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TO  ENTER,  REVIEN,  EDIT,  OR  PRINT  SOIL  l  ROCK  LAYER  DATA  -* - V 

(Appropriate  title  appears  Tor  each  selection) 

1  *  enter  nea  data,  2  *  edit  record  shoan, 

J  *  reviea  or  edit  data  Tor  a  diTTerent  boring  nueber, 

4  *  skip  ahead  one  record,  3  *  skip  back  one  record, 

4  *  print  a  record,  7  »  emt  back  to  previous  eenu. 

Enter  action  nueber; 

Option  1  asks  Tor  boring  nuaber,  shoes  any  duplicate  borings  and 
asks  Tor  ID  of  desired  boring. 

Option  3  saee  questions  as  option  I. 

Figure  3.  Schematic  of  BORDBM  menu  options 


file  (BORID.DBF)  that  is  used  to  find  and  list  duplicate  borings.  Once  a  new  boring  is 
entered,  its  number  should  not  be  changed  if  supplementary  data  such  as  blow  count  data 
has  been  entered.  If  a  boring  number  is  changed  in  the  boring  information  file,  the  num¬ 
ber  is  not  automatically  changed  in  any  of  the  supplementary  files. 

I  I.  When  other  data  for  a  boring  are  entered,  the  boring  number  is  asked  for  and 
checked,  if  duplicate  numbers  exist,  the  project  and  site  data  are  shown  and  the  user  is 
asked  for  the  identification  number  (SID)  of  the  desired  boring.  If  the  entered  boring 
number  is  not  found,  the  user  is  informed  and  given  the  option  of  reentering  the  number 
or  returning  to  the  main  menu.  Thus,  supplementary  data  for  a  boring  cannot  be  entered 
until  general  information  for  the  boring  has  been  entered.  The  boring  number  and  unique 
identification  number  are  automatically  stored  and  shown  on  each  new  data  screen  form 
for  supplementary  data.  Also,  when  depth  data  are  entered,  they  are  used  with  the  top  of 
hole  elevation  to  automatically  calculate  and  store  elevation  data. 

12.  Examples  of  the  data  entry  forms  and  data  entry  are  shown  in  Appendix  A. 
Each  data  form  constitutes  a  record  for  the  particular  data  file.  Data  can  be  edited 
(except  for  boring  and  SID  numbers  and  elevation  data)  during  data  entry  or  any  time 
after  entry  is  completed.  If  a  depth  value  is  edited,  the  elevation  value  will  automa¬ 
tically  be  changed.  However,  there  are  no  menu  options  for  deleting  data  records. 

Record  deletion  would  require  reindexing  of  data  files  and  would  take  an  unacceptably 
long  time.  Indexed  data  files  are  used  to  rapidly  find  desired  data.  If  records  must  be 
deleted,  then  special  instructions  in  Appendix  B  must  be  followed. 


13.  All  data  entered  are  stored  in  the  appropriate  file.  An  index  file  is  used  with 
each  data  file  to  keep  the  data  ordered  by  boring  number,  and  in  some  cases  by  SID  or 
project  and  site  name  plus  other  variables,  such  as  coordinates.  The  use  of  index  files 
speeds  up  the  operation  of  the  boring  data  package,  but  requires  some  additional  disk 
storage  space. 

14.  If  the  BORDBM  programs  and  data  files  are  on  one  5-1/4  in.  floppy  disk,  there 
is  enough  space  for  about  50  borings,  assuming  that  each  boring  requires  about  5,260  bytes 
(based  on  data  for  44  borings  used  duriny  data  base  development).  However,  on  a 
machine  with  a  10-megabyte  hard  disk,  500  borings  would  require  some  2.63  megabytes  or 
26  percent  of  the  hard  disk  space.  In  addition,  the  package  would  operate  much  faster. 
Thus,  a  microcomputer  with  a  10-megabyte  hard  disk  is  recommended. 


PART  111:  DATA  RETRIEVAL  AND  DISPLAY 


15.  Data  retrieval  and  display  are  done  automatically  using  the  selections  shown 
on  the  menus  in  Figures  3  and  4.  The  selections  for  summary  reports  are  show  on  the 
menu  in  Figure  3  and  the  selections  for  locating  and  plotting  borings  are  shown  in 
Figure  4.  Examples  of  these  selections  are  shown  in  Appendix  C. 

Summary  Reports 

16.  The  summary  report  selections  are  keyed  to  a  project  or  site  name  or  to  a 
boring  number.  Some  users  may  want  to  use  the  project  name  for  a  building  type  and  the 
site  name  for  a  military  base,  while  others  may  want  to  use  the  site  name  for  a  location 
under  a  general  project  name.  When  a  project  name  is  entered  in  selections  6  through  8 
of  the  menu  for  reports  in  Figure  3,  all  data  for  the  project  name  are  listed  and  the  site 
names  are  noted  on  the  summary.  When  a  site  name  is  entered,  all  data  for  the  site  are 
listed  and  project  names  are  noted.  For  selections  3  through  5  on  the  tabular  logs,  both 
the  project  and  site  names  are  listed. 

Locating  and  Plotting  Borings 

17.  The  options  for  locating  and  plotting  borings  shown  in  Figure  4  are  generally 
self-explanatory.  A  few  important  points  about  the  programs  for  these  options  are  men¬ 
tioned  below. 

Locating  borings 

18.  The  two  sets  of  north-south  and  east-west  coordinates,  required  in  selection  3 
for  locating  borings,  can  be  in  any  order.  The  program  finds  the  maximum  and  minimum 
values. 

Plotting  locations 

19.  The  plot  of  boring  locations  (selection  4)  sets  the  scale  to  I  in.*  =  400;  600; 
800;  1,000;  1,200;  1,500;  1,800;  or  2,000  ft,  depending  on  the  maximum  and  minimum 
values  of  the  coordinates.  If  a  scale  greater  than  2,000  ft  is  required,  the  user  is  notified 
that  the  scale  is  too  small  and  map  cannot  be  drawn.  Letters  are  used  to  show  locations 
(A  through  Z,  then  a  through  z,  and  finally  0  through  9)  to  allow  as  many  borings  as 


*  A  table  of  factors  for  converting  non-SI  units  of  measurement  to  Sl(metric) 
units  is  presented  on  page  3. 


MAIN  MENU  FOR  BORINS  DATA  BASE 


SELECTION 


gccsasisBBi 


SUMMARY  OF  BORING  DATA  BASE  PROCEDURES  -  ■ 
ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA  -  -  - 
LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  -  -  ■ 
PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE 

PLOT  LOG  OF  BORING  (S) . . . 

PRINT  SUMMARY  REPORTS  OF  DATA - - 

RETURN  TO  MAIN  OPERATING  SYSTEM  . 


Selection  3,  LOCATE  BORINGS: 


Asks  for  two  pairs  of  NS  and  EW  coordinates. 

Lists  borings  and  coordinates  on  screen  and  asks 
if  printed  table  wanted. 

Asks  if  plot  of  boring  locations  wanted. 

Selection  4,  PLOT  BORING  LOCATIONS: 

Asks  for  project  or  site  name  and  if  printer 
has  wide  paper;  selects  scale  to  fit  data. 

Selection  5,  PLOT  L06  OF  BORING (S) t 

BORING  LOG  PLOT  PROGRAM  FOR  ONE  TO  THREE  LOGS  PER  SHEET 
ON  AN  EPSON  OR  COMPATIBLE  DOT  MATRIX  PRINTER 
Enter  the  number  of  borings  to  plot:  1,  2,  or  3 
(14-in  paper  for  3):  3 

DOES  PRINTER  HAVE  14-IN  WIDE  PAPER,  Y  OR  N:  N 
CAN  ONLY  PLOT  TWO  BORINGS  ON  8-1/2  IN.  PAPER. 

Enter  the  boring  number(s)  when  asked. 

Boring  numbers  asked  for,  any  duplicates  are  shown 
and  boring  ID  of  desired  boring  requested. 

Once  borings  entered,  following  shown: 

B0RIN6  NUMBERS  AND  DEPTHS  ARE: 

BORINS  NO.  DEPTH,  FT. 

CS-4  36.00 

CS-6  25.50 


Options  for  vertical  scale  are:  5  ft/in  (max  boring  depths  <  40  ft) 

10  ft/in  (max  boring  depths  <  80  ft) 

20  ft/in  (max  boring  depths  <  160  ft) 

30  ft/in  (max  boring  depths  <  240  ft) 

ENTER  CHOICE:  5,  10,  20,  OR  30:  5 

Figure  4.  Options  for  locating  and  plotting  borings 


possible  to  be  shown  (a  maximum  of  62  on  one  plot).  If  borings  are  too  close  or  have  the 
same  coordinates,  they  are  noted  with  the  same  location  letter  in  the  listing  at  the 
bottom  of  the  map. 

Boring  logs 

20.  The  boring  log  plot  (selection  5)  shows  the  feature  (strata)  name  and  descrip¬ 
tion  and  plots  these  items  to  the  vertical  scale  selected  by  the  user.  An  example  of  the 
selection  process  is  shown  in  Figure  4.  The  limitations  of  the  vertical  scale  options  and 
the  need  to  ensure  that  no  data  are  skipped  require  that  all  data  with  an  elevation 
greater  than  each  line  elevation  be  plotted  in  sequence.  Thus  when  data  elevations  are 
closely  spaced,  the  true  vertical  location  may  be  lower  than  it  should  be  until  a  gap  in 
the  elevation  of  data  occurs. 


13 


Notes: 

1.  One  or  two  screens  are  shown  on  a  page. 

2.  User  Input  is  circled. 

3.  Other  notations  are  boxed. 


MAIN  MENU  FOR  BORING  DATA  BASE  SELECTION 

SUMMARY  OF  BORING  DATA  BASE  PROCEDURES  -  -  1 

ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA  -  -  -  -  2 

LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  -  -  -  -  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  -  -  4 

PLOT  LOG  OF  BORING  (S) - - - - 5 

PRINT  SUMMARY  REPORTS  OF  DATA  -----  -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  -  -  ____  7 


Enter  Selection 


(his  boring  data  base  package,  called  BORDBM ,  uses  menus  to  provide 
the  following  options: 

a.  Data  entry  and  editing. 

b.  List  of  borings  bounded  by  two  sets  of  given  coordinates. 

c.  Plot  of  boring  locations  on  dot  matrix  printer. 

d.  Plot  of  boring  logs  on  dot  matrix  printer. 

e.  Various  summary  reports. 

Data  entry  and  editing  are  divided  into  six  catagories: 

a.  Boring  information  (stored  in  BORMA I N . DBF ) , 

b.  Drilling  interval  data  < BORSEG.  DBF' )  , 

c.  Class.  ?<  descr.  of  soil  and  rock  layers  (BORFEA.DBF)  , 

d.  Split  spoon  test  data  ( BORSF'T .  DBF  )  , 

e.  Summar y  of  test  types  (BORTST.DEF) , 

f.  lest  results  ( BORRSL . DBF ) . 

One  or  more  index  files  are  used  with  the  main  files  to  reduce  the 
time  for  locating  data.  A  special  file  (BORSID.DBF  plus  index  files) 
is  used  to  keep  track  of  barings  and  list  pertinent  data  for  duplicate 
bor 1 ngs . 

Hit  any  key  to  continue. 

WA 1 T 1 NG 


Identical  boring  numbers  can  be  used  for  different  projects,  sites, 
or-  project  descriptions,  since  a  unique  number  is  automat  i  cal  1  y 
assigned  to  each  new  boring  entered  into  the  data  base.  When  a  new 
boring  is  entered,  its  number  is  checked  and  if  duplicate  numbers 
exist  the  user  can  chose  to  see  a  list  of  the  project  name,  site  name 
and  project  description.  When  other  data  is  entered  for  a  boring,  the 
user  is  asked  fur  the  boring  number  and  asked  to  select  the  boring 
system  identification  (SID),  if  duplicate  boring  numbers  exist. 

Thus,  boring  information  should  be  entered  before  other  data  for  that 
boring.  Once  the  top  of  hole  elevation  is  entered,  depths  can  be 
entered  for  other  data,  since  depths  are  automatically  stored  and  used 
to  calculate  elevations  using  the  entered  depth  and  the  top  of  hole 
el evat l on . 


This  package  is  identical  to  the  boring  data  base  under  System  2000 
on  the  Corps-wide  time  sharing  system  operated  by  Control  Data  Corp. 
(CDC).  A  transfer  program  package  is  available  for  transfenng 
data  retrieved  from  System  2000  to  this  dBase  II  software  package. 

Hit  any  key  to  continue 

WA I  1  ING 


SELECTION 


MAIN  MENU  FOR  BORING  DATA  BASE 
SUMMARY  OF  BORING  DATA  BASE  PROCEDURES  -  -  -  1 

ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA  -----  2 

LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  ------  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  -  -  4 

PLOT  LOG  OF  BORING (S)  ------------  H 


PRINT  SUMMARY  REPORTS  OP  DA  T A  -  -  -  -----  -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  --------  7 


Enter  Selection 


MENU  FOR  ENTERING  NEW  DATA 
OR  REVIEWING,  OR  EDITING  EXISTING  DATA 

BORING  INFORMATION  ----------------- 

SOIL  ROCK  LAYERS  (Class.  Descrip.)  ------- 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type)-  -  -  - 

SPLIT  SPOON  TEST  DATA  (Blow  Counts)  -------- 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  ?<  Loc .  Results) 

TEST  RESULTS  -------------------- 


Sel 


RETURN  TO  PREVIOUS  MENU 


COPY  OF  BORING  INFORMATION  FOR  LAS  1  BORING  ENTERED 

Hole  No.:  CS-2  Hole  ID:  496  Class:  CS 

Remarks:  Author:  HUDAK 

Project  Name:  APPROACH  LIGHTING  SYSTEM 
Site  Name:  ROB 

Project  Description:  MIL  12504  FY86 

Latitude:  0.00  Longitude:  0.00  Accur:  0  Ret: 

Loc  NS:  968600.00  Loc  EW:  672220.00  Accur:  1  Re-f  : 

Date:  08/14/1984  Driller:  JUSTISS  Inspector:  GRIFFIN 


Loc  Bor  Log:  GS84 
Loc  Samples:  SAD  LAB 
Purpose:  FE 

Top  ot  Hole  Elev:  264.80 

Days  to  Drill  Hole:  1.00 


Loc  Drill  Log : 


Data  Status:  C 


Elev  Accur: 


Depth:  12. 


TO  ENTER  NEW  BORINGS,  OR  REVIEW,  EDIT,  OR  PRINT  EXISTING  DATA: 
1  =  enter  data  -for  new  boring,  2  =  edit  boring  shown  above, 

3  -=  review  or  edit  another  boring,  4  =  skip  ahead  one  boring 
5  =  skip  back  one  boring,  6  =  print  a  boring,  7  =  exit 
Enter  action  number:/?) 


Enter  Borina  Number 


o 


No.  ot  duplicate  boring  numbers  =  _• 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT. 
Bor  i  nq  No :  :  A  -4  : 

Project  : ADS 

Site  : HUN  : 

Project  Description  :LI184,FY80  : 

Boring  ID:  166: 

Boring  No::A~4  : 

Project  : COM 

Site  : ROB  : 

Project  Description  : LI  10625, FY84  : 

Boring  ID:  398: 


Bor i nq  No: : A-4  : 

Pro i ec  t  : TES 
Site  : BEN 

Project  Description  :LI396,FY85 
Boring  ID:  416: 

Enter  the  boring  ID  tor  the  boring  you  want. 


COPY  OF  BORING  INFORMATION  FOR  SELECTED  BORING 
Hole  No.:  A-4  Hole  ID: 

Remarks: 


S9B  Class:  AP 
Author:  TRULUCK 


Project  Name:  CUM 
Site  Name:  ROB 

Project  Description:  LI  10625, FY84 

Latitude:  0.00  Longitude:  0.00  Accur:  0  Ret: 

Lac  NS:  945420.00  Loc  EW:  678790.00  Accur:  5  Ret:  GA 

Date:  09/20/1982  Driller:  MAULDEN  Inspector:  DELANO 


Loc  Bor  Log:  GS73 
Loc:  Samples: 
Purpose:  FE 


Loc  Dr i 1 1  Log : 


Data  Status:  C 


Top  ot  Hole  Elev:  287.80 

Days  to  Drill  Hole:  1.00 


Elev  Accur:  1 


Depth : 


1 0 . 00 


TO  ENTER  NEW  BORINGS,  OR  REVIEW,  EDIT,  OR  PRINT  EXISTING  DATA: 
1  =  enter  data  tor  new  boring,  2  =  edit  boring  shown  above, 

3  -  review  or  edit  another  boring,  4  =  skip  ahead  one  boring 
5  =  skip  back  one  boring,  6  =  print  a  boring,  7  =  exit 
Enter  action  number:/T) 


Enter  Boring  Number 


No.  of  duplicate  boring  numbers  =  3 

Do  you  need  project  info,  tor  duplicate  borings'0  Enter  Y  or  N 


/y 


Bor  1 ng  No: : A-6  : 

Project  : ADS  : 

Site  : HUN  : 

Project  Description  :L1184,FY80  : 

Boring  ID:  168: 

Boring  No:: A-6  : 

Project  : COM  : 

Site  : ROB  : 

Project  Description  : L I  1 0625 , F Y84  : 

Boring  ID:  400: 

Bor l ng  No: : A- 6  : 

Project  :7ES  : 

Site  : BEN  : 

Pro  iec*  Description  :LI396,FY85  : 

Bor  l ng  ID:  418: 

Do  you  want  to  reenter  boring  number"0  Enter  Y  or  N 


Enter  Boring  Number 


down 


K 


n 


DATA  ENTRY  FOR  NEW  BORING 

Use  arrow  keys  to  move  around  -form,  or  CTRL  E  =  up,  CTRL  X  = 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down, 
and  CTRL  C  to  skip  out  of  the  form  and  end. 


Hole  No. 

Remar  ks : 

Project  Name: 

Site  Name: 

Project  Description: 
Latitude:  : 

Loc  NS:  : 


:{A^1S) 


Hole  ID: 


498 


Cl  ass: 


Author : 


Long! tude: 
Loc  EW: 


Ref  : 


Date:  t  :  Dr  1 1 1 er : 

Loc  E<or  Log:  : 

Loc  Samples: 

Purpose: 

Top  of  Hole  Elev:  : 

Days  to  Drill  Hole:  : 


Ac cur : 

Ac cur:  : 

:  Inspector: 


Ref  : 


Loc  Drill  Log : 


Data  Status: 


Elev  Accur: 


Depth : 


Changed  hole  number  and 

filled  in  the  rest  of  the 
form, 


DATA  ENTRY  FOR  NEW  BORING 

Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X  =  down 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down, 
and  CTRL  C  to  skip  out  of  the  form  and  end. 

Hole  No.  (jdh~1653^  :  Hole  ID:  49B  Class:  Drill  Hole: 

Remar  ks: Illustration  of  bori  ng  data  entry  :  Author : Strohm  : 

Project  Name: Any  Project  for  i 1 1 ustrati on . 

Site  Name: Any  site  : 

Project  Descript  ion: Any  descr  iption  you  like  : 

Latitude:  0.00:  Longitude:  0.00:  ftccursO:  Ref : None 

Loc  NS:  1 234567. 33:  Loc  EW:  444567.91:  Accur:4:  Ref : Made  up 

Date:  03/22/ 1985:  Driller:L.  Madeup  :  Inspector ; R.  Expert 

Loc  Bor  Log: Not  made  :  Loc  Drill  Log:WESGR-6  : 

Loc  Samples: In  the  lab  :  Data  Status : Incomp  1 ete: 

F'ur  pose :  Test  of  data  storage: 

Top  of  Hole  Elev:  3456.77:  Elev  Accur: 9:  Depth:  234.56: 

Days  to  Drill  Hole: 3. 50: 


TO  ENTER  NEW  BORINGS,  EDIT,  OR  PRINT  EXISTING  DATA 
1  =  enter  data  for  new  baring,  2  =  edit  boring  just  entered 
3  =  review  or  edit  another  boring,  4  =  skip  ahead  one  boring 
5  =  skip  back  one  boring,  =  print  a  boring,  7  =  exit 
enter  action  number: 


m 


FOR  EDITING  OF  BORING  INFORMATION 
Use  arrow  leys  to  move  around  -form,  or  CTRL  E  =  up,  CTRL  X  =  down 
OTR'l  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down, 
and  CIRL  C  to  skip  out  o-f  the  form  and  end. 

Hole  No.:dh  1633  :  Hole  ID:  498  ClassiDrill  Hole 

Reiiioir  l:s:  1 1  lustration  of  boring  data  entry  :  Author  :  Str  ohm  : 

Project.  Name:  Any  Project  for  illustration.  : 

Site  Name: Any  site  : 

Project  Description: Any  description  you  like  : 

Latitude:  0.00:  Longitude:  0.00:  Accur:0:  Ref : None 

Loc  N3: 1234567. 33:  Loc  EW:  444567.91:  Accur:4:  Ref : Made  up 

Date: 03/22/ 1985:  Briller:L.  Madeup  :  Inspector:R.  Expert 

Loc  Bor  Log: Not  made  :  Loc  Drill  Log:WESGR-G  : 

Loc  Samples:  In  the  lab  :  Data  Status: Incomplete: 

Purpose: Test  of  data  storage: 

Top  of  Hole  Elev:  3456.77:  Elev  Accur:9:  Depth:  234.56: 

Days  to  Drill  Hole:3.50: 


FOR  EDITING  OF  BORING  INFORMATION 
Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down, 
and  CTRL.  C  to  skip  out  of  the  form  and  end. 


Hole  No. : dh  1633  :  Hole  ID: 

Remarls: Illustration  of  boring  data  entry 
Project  Name: Any  Project  for  i 1 1 ust r at i on . 
Site  Name: Any  site 

Project  Descr i pt i on : Any  description  you  like 
Latitude:  0.00:  Longitude:  0.00: 

Loc  NS: 1 234567. 33:  Loc  EW:  444567.91:  A 

Date: 03/22/ 1985:  Driller:L.  Madeup 
Loc  Bor  Log: Not  made  :  Loc  Drill  Log:WESG 

Loc  Samples: In  the  lab  :  Dat 

Purpose: Test  of  data  storage: 

Top  of  Hole  Elev:  3456.77:  Elev  Accur:9: 

Days  to  Drill  Hole: 3. 50: 


498  Cl  ass -.Drill 

:  Author : Strohm 


0 . 00 :  Ac  cur : 0 :  Ref : Non  e 

91:  Accur:4:  Ref : Made  up 

:  Inspector: R.  Expert 

Log : WESGR-G  : 

Data  Status: Incompl ete: 


Depth : 


TO  ENTER  NEW  BORINGS,  EDIT,  OR  PRINT  EXISTING  DATA 
=  enter  data  for  new  boring,  2  =  edit  boring  just  entered 
=  review  or  edit  another  boring,  4  =  skip  ahead  one  boring 
=  skip  back  one  boring,  6  =  print  a  boring,  7  =  exit 
enter  action  number :7  ) 


Sel 


MENU  FOR  ENTERING  NEW  DATA 
OR  REVIEWING,  OR  EDITING  EXISTING  DATA 

BORING  INFORMATION  ------------- 

SOIL  !<  ROCK  LAVERS  (Class.  &  Descrip.)  -  -  - 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type) 

SPLIT  SPOON  TEST  DATA  (Blow  Counts)  ----- 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  S<  Loc .  Results)-  - 

TEST  RESULTS  ---------------------- 

RETURN  TO  PREVIOUS  MENU  ---------------- 

Enter  Selection  :/5) 


LAST  SOIL  OR  ROCK  LAYER  CLASS. 
Hoi e  No. :  A-6 


DESCR.  RECORD  ENTERED 
Hole  ID:  168 


Depth  to  top  of  strata:  123.00  Elev  at  top  of  strata 

Soil  c 1 assi f i cat  1  on  or  rock  name:  TEST  CL  Date:  NONE 

Description  of  strata:  TEST  OF  ADDING  NEW  FEAT  REC. 


fO  ENTER,  REVIEW,  EDIT,  OR  PRINT  SOIL  ?.  ROCK.  LAYER  DATA 
1  -  enter  new  data,  2  =  edit  record  shown  above 

3  -  review  or  edit  data  for  a  different  boring  number, 

4  =  blip  ahead  one  record,  u  =  skip  bad  one  record 
6  -  print  a  record,  7  =  e;:  1 1  back  to  previous  menu. 

ENTER  ACTION  NUMBER 


COPY  OF  SELECTED  SOIL  OR  ROCK  LAYER  CLASS.  &  DESCR.  RECORD 


Hole  No.:  A- 1  Hole  ID:  163 

Depth  to  top  of  strata:  0.00  Elev  at  top  of  strata: 

Soil  c 1 assi f i cat i on  or  rock  name:  SM  Date: 

Description  of  strata:  BR  T  SI  FIN  SD  RTS  MST 


TO  ENTER,  REVIEW,  EDIT,  OR  PRINT  SOIL  ?<  ROCK  LAYER  DATA 
1  =  enter  new  data,  2  =  edit  record  shown  above 

3  =  review  or  edit  data  for  a  different  boring  number , 

4  =  skip  ahead  one  record,  5  =  skip  back  one  record 


6  =  print  a  record ,  7  =  exit  back  to  previous  menu. 

ENTER  ACTION  NUMBER^) 


Sel ec  1 1  on 


MENU  FOR  ENTERING  NEW  DATA 
OR  REVIEWING,  OR  EDITING  EXISTING  DATA 

BORING  INFORMATION  -----i 

SOIL  ?<  ROCK  LAYERS  (Class.  Descrip.)  -  --  --  --  --  2 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type)-  -----  3 

SPLIT  SPOON  TEST  DATA  (Blow  Counts)  ----------4 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  ?<  Loc.  Results)-  -  5 

TEST  RESULTS  ----------------------6 

RETURN  TO  PREVIOUS  MENU  ----------------7 


Enter  Selection 


LAST  DRILLING  INTERVAL  DATA  RECORD  ENTERED 


Hoi  e 

No.  : 

CS-2 

Hole  ID: 

496 

Depth 

to  top  of 

i  nter 

val  : 

0 .  00 

El  ev 

at  top 

of 

Type 

of  drilling 

or  b 

it:  SS 

Size 

of 

i nterval : 
hole:  STD 


264.80 


TO  ENTER,  REVIEW,  OR  EDIT  DRILLING  INTERVAL  DATA 
1  =  enter  new  data,  2  =  edit  record  shown  above 

3  =  review  or  edit  data  -for  a  different  boring  number, 

4  =  skip  ahead  one  record,  5  =  skip  back  one  record 
6  =  print  a  record,  7  =  exit  back  to  previous  menu. 

ENTER  ACTION  NUMBER :/T) 


V 

£ 


Enter  Boring  Number 


No.  of  duplicate  boring  numbers  =  2 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT 
Boring  No::CS-5  : 

Project  : TES 

Site  : BEN  S 

Project  Description  :LI396,FY85  ! 

Boring  ID:  410: 


Boring  No::CS-5  : 

Project  : COM 
Site  : ROB 

Project  Description  : LI  10625 , FY84 
Boring  ID:  438: 

Enter  the  boring  ID  for  the  boring  you  want. 


DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA 
Use-  arrow  Leys  to  move  around  -form,  or  CTRL  E  ~  up,  CTRL  X  =  down 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of 
the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end. 

Hole  No.:  CS-5  Hole  ID:  438 

Depth  to  top  of  interval:  : 


DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA 
Use  arrow  keys  to  move  around  form,  or  CTRL 


E  =  up  . 


CTRL  S  =  left,  CTRL  D  =  right, 


I*  - 

I 


the  form,  and  CTRL  C  to  skip 


RETURN 
out  of 


to  skip  down 
the  form  and 


CTRL  X  =  down 
or  show  rest  of 
end . 


Hoi e  No. :  CS-5 


Hole  ID: 


438 


uvl 

a 


Depth  to  top  of  i nter val  :  45. 0 


71 


DATA  ENTRY  FOR  DRILLIN' 
Use  arrow  keys  to  move  aroi 
CTRL  S  =  left,  CTRL  D  =  r 
the  form,  and  CTRL  C  to 

Hole  No.:  CS-' 

Depth  to  top  of  interval: 

Type  of  drilling  or  bit: 


i  INTERVAL  DATA 
nd  form,  or  CTRL  E  =  up , 
ght,  RETURN  to  skip  down 
skip  out  of  the  form  and 

i  Hole  ID: 

45.00:  Elev  at  top 

:  Size 


CTRL  X  =  down 
or  show  rest  of 
end . 

438 

of  interval:  243.90 

of  hole:  : 


DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA 
Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X  =  down 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of 
the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end. 

Hole  No.:  CS-5  Hole  ID:  438 

Depth  to  top  of  interval:  45.00:  Elev  at  top  of  interval:  243.90 


Type  of  drilling  or  bit:3-in.  tube 


Size  of  hole:4.0 


DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA 
Use  arrow  keys  to  move  around  -form,  or  CTRL  E  =  up,  CTRL  X  =  down 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of 
the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end. 


Hoi e  No . :  CS— 5 


Hole  ID:  438 


Depth  to  top  of  interval:  45.00: 


Elev  at  top  of  interval:  243. 9C 


Type  of  drilling  or  bit:3-in.  tube: 


Size  of  hole: 4.0  : 


Enter  more  of  same  data  for  same  hole  no.  ,  Y  or  N  ?:(rp 


DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA 
Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up ,  CTRL  X  =  down 
CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of 
the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end. 


Hole  No.:  CS-5 


Hole  IDs 


Depth  to  top  of  interval:  45.00: 


Elev  at  top  of  interval; 


243.90 


Type  of  drilling  or  bit:3-in.  tube: 


Size  of  hole:4.0  : 


TO  ENTER,  REVIEW,  EDIT,  OR  PRINT  DRILLING  INTERVAL  DATA 
1  =  enter  new  data,  2  =  edit  record  shown  above 

3  =  review  or  edit  data  for  a  different  boring  number, 

4  =  skip  ahead  one  record,  5  =  skip  back  one  record 
6  =  print  a  record,  7  =  exit  back  to  previous  menu. 

ENTER  ACTION  NUMBER^) 


Sel ect 1  on 


MENU  FOR  ENTERING  NEW  DATA 
OR  REVIEWING,  OR  EDITING  EXISTING  DATA 

BORING  INFORMATION  ------------  -------1 

SOIL  &  ROCK  LAYERS  (Class.  !<  Descrip.) - 2 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type)-  -----  3 

SPLIT  SPOON  TEST  DATA  (Blow  Counts)  ----  -  -  _  _  -  4 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  S<  Loc .  Results)-  -  5 

TEST  RESULTS  -----  -  _________  -  ___6 

RETURN  TO  PREVIOUS  MENU 


Enter  Selection  :(a) 


LAST  BLOW  COUNT  RECORD  ENTERED 
Hole  No. :  CS-5 

Depth  for  blow  count:  37.50 

Blow  count,  N  value:  78 

Remarks  for  blow  count: 


Hole  ID:  438 

Elev  of  blow  count: 


251 


TO  ENTER,  REVIEW,  OR  EDIT  SPLIT  SPOON  TEST  DATA 
l  =  enter  new  data,  2  =  edit  record  shown  above 

3  -  review  or  edit  data  for  a  different  boring  number 

4  -  skip  ahead  one  record,  5  =  skip  back  one  record 
6  =  print  a  record,  7  =  exit  back:  to  previous  menu. 

ENTER  ACTION  NUMBER 


Z'- 


yy 


K 


m 


MENU  FOE  ENTERING  NEW  DATA 

OR  REVIEWING,  OR  EDITING  EXISTING  DATA  Selection 

BORING  INFORMATION  ------------  .  -  -  -  -  1 

SOIL  ?<  ROCK  LAVERS  (Class.  V  Descrip.)  ---------  2 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type)-  -  -  -  -  -  3 
SPLIT  SPOON  TEST  DATA  (Blow  Counts)  ----------4 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  &  Loc.  Results)-  -  5 
TEST  RESULTS  ----------------------6 

RETURN  TO  PREVIOUS  MENU  --------------  --7 

Enter  Selection  ^5) 


LAST  FIELD  OR  LAB  TEST  SUMMARY  RECORD  ENTERED 

Hole  No.:  CS-5  Hole  ID:  438 

Name  of  test:  SI  304 

Number  o-f  tests:  Location  of  data:  GS73 


v. : 


TO  ENTER,  REVIEW,  EDIT,  OR  PRINT  TEST  SUMMARY  INFO 
1  -  enter  new  data,  2  -  edit  record  shown  above 

3  -  review  or  edit  data  -for  a  different  borinq  number  , 

4  -  slip  ahead  one  record ,  5  =  skip  back  one  record 
6  -  print  a  record,  7  -  exit  back  to  previous  menu. 

ENTER  ACTION  NUMBER :0 


MENU  FOR  ENTERING  NEW  DATA 
OR  REVIEWING,  OR  EDITING  EXISTING  DATA 


Sel ect i on 


BORING  INFORMATION  -  --  --- 

SOIL  ROCK  LAYERS  (Class.  !,  Descrip.; - - 2 

DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type)-  -  -----  3 

SPLIT  SPOON  TEST  DATA  (Blow  Counts)  ----------4 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  ?<  Loc .  Results)-  -  5 
I EST  RESUL  TS  --------------  -----  -----  6 

RETURN  TO  PREVIOUS  MENU  ----------------7 


Enter  Selection  :£) 


LAST  TEST  RESULTS  RECORD  ENTERED 


Hole  No.:  CS-5 
Test  Name:  SI  304 


Hole  ID: 
Date:  11/05/1982 


438 

Mater  1 al : 


Dep  t  h :  5 .  00 

Result  1:  W18.7 
Result  2: 


Elevation:  283.90 

Result  3: 

Result  4: 


Romar  Ts : 


TO 

1 


4 

6 


ENTER,  REVIEW,  EDIT,  OR  PRINT  TEST  RESULTS 
=  enter  new  data,  2  =  edit  record  shown  above 
=  review  or  edit  data  For  a  different  boring  number 

-  skip  ahead  one  record,  5  =  skip  back  one  record 

-  print  a  record,  7  =  exit  back  to  previous  menu. 

ENTER  ACTION  NUMBER :@ 


1 


SC 


l'1-  1  ",|.*  » »  ■■  va"  rr  r  rrrr 


s." 

■2 


K 

k. 


I 


los-v  nr-  sei  ,t.c  ted  iesi  results  record 

Half'  No.  :  CS  1  Hole  ID:  162 

lest  Name:  31206  Date:  05/31/1979 

Pep  t  h :  1 . 50  Elevations  34. 7‘j 

Resul t  1:  1/100  Result  3s  4/95 

Result  2:  2/98  Result  4:  6/70 

Remar ks : 


Material  :  1. 3PSM  .1 


TO  ENTER,  REVIEW,  OR  EDIT  TEST  RESULTS 

1  =  enter  new  data,  2  =  edit  record  shown  above 

3  ~  review  or  edit  data  for  a  different  boring  number, 

4  ---  skip  ahead  one  record,  5  =  sk:ip  back:  one  record 

6  =  print  a  record ,  7  =  exit  back  to  previous  menu. 

ENTER  rtCt  I  ON  NUMBER  ^7) 


A20 


i 


1.  Deletion  of  records  from  data  base  files  requires  that  the  user  be 
familiar  with  the  several  dBASE  II  commands  and  operations.  The  two  main 
commands  are  DELETE  and  PACK.  DELETE  marks  a  record  for  deletion,  while 
PACK  actually  deletes  the  record  or  records.  The  following  steps  are  recom¬ 
mended  : 

a_.  Call  up  the  appropriate  data  base  file  with  the  USE  command 
(e.g.,  BORMAIN). 

b.  Find  the  record  or  records  for  deletion. 

c.  Set  up  all  index  files  with  the  SET  INDEX  TO  command  (e.g., 

SET  INDEX  TO  BORMAINI) .  See  Appendix  F,  program  BORINIT.PRG  for  index 
file  names. 

d_.  Delete  the  desired  records  with  the  DELETE  command  (e.g., 

DELETE  RECORD  129  or  DELETE  NEXT  9  RECORDS) . 

e.  Use  the  PACK  command  to  delete  records  and  reindex  files  (e.g., 
PACK).  Considerable  time  may  be  required  if  the  data  base  file  is  large. 

2.  If  records  from  BORMAIN. DBF  (and  BORMAINI .NDX)  files  are  deleted,  the 
corresponding  records  will  also  have  to  be  deleted  from  BORSID.DBF  and  its 
four  index  files.  Essential  data  are  copied  to  BORSID.DBF  and  its  index  files 
when  a  record  is  edited  or  added  to  BORMAIN. DBF. 


Notes : 


1.  One  or  two  screens  are  shown  on  a  page. 

2.  User  input  is  circled. 

Ii A I  N  MENU  K U H  H O T <  t  N G  D A  I  A  E A S E  S E L. E Cl  J  0 N 


SUMMARY  OF  EARING  DATA  EASE  PROCEDURES  - .  1 

EN'IER  NEW  DATA  OR  EDIT  EXISTING  DATA  -  .  2 

LOCATE  BORINGS  WIIHIN  GIVEN  COORD'S  -  ~  .  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  -  -  4 

PLOT  LOG. OF  BORING  (S)  -  -  ~  -  - .  . .  b 

PRINT  SUMMARY  REPORTS  OF  DATA  ~  . -  -  -  -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  -  -  •  - . -  - . -  7 


Enter  Selection  :'3 

E N T E R  TW 0  S E T S  0 F  N S t E W  CO U R D .  I  0  DERI N E  A R E A  0 F  1 N T E R E S T . 
INPUT  FIRST  MS  COORD.  : 930000} 

CORRESPONDING  EW  COORD. : 660000) 

INPUT  SECOND  NS  COORD.  :\V7QQQQ) 

CORRESPONDING  EW  COORD.  :.68dboo} 


C2 


A 


r7  7*7  w  1  vr;;  vf  ; 

\  1  ':•>  1  !M 

BORINGS 

IN  AREA  WITHIN  GIVEN  COORD I NA FES 

NS  COORD 

3  9 

iOOOO 

E  W  C  ( J  0  R  D  :  6 6 0 0 0 0 

0000 

680000 

Mi  JR  [  MM  NO 

S I  D 

NS  COORD. 

EW  COORD. 

I  \  ‘j 

399 

9  4  Jfl  0  A  0  m  O  0 

6"/ 8  790. 00 

!  RiJ.J  : 

ii  i|-! 

Si  If  r 

Ri  Hi 

Mi 

400 

945060 . 00 

A  /  S  7  9  U  ■  O  *•_) 

PRGJ  ; 

COM 

S I  1 1  : 

f-:-  n 

M  7 

40  i 

945060 . 00 

6787 90. 00 

PRO. !  s 

COM 

S  I  1  1  ; 

ROD 

ii . 0 

402 

945060. 00 

678790. 00 

PRO. J  i 

COM 

Sill  : 

ROD 

Hit  any 

key  to 

cent i nue 

1  1  I  HO 

A  -9 

403 

945060 . 00 

678790 . 00 

PROS  ; 

COM 

S 1  IE : 

ROB 

i  i-- 1,  0 

404 

945060 . 00 

678790. 00 

PROJ  : 

COM 

8  1  1  1.  I 

ROD 

A  1  1. 

405 

945060. 00 

678790. 00 

PRO.) : 

COM 

S  1  If  i 

ROB 

c  <;:>-■  o 

"395 

945420 . 00 

678790 . 00 

PRO.)  s 

COM 

s;  j:  T  E : 

ROB 

L-S-  / 

394 

945420. 00 

678790 . 00 

PROJ  ; 

COM 

0  IT  E  ,1 

ROD 

Pi  .1. 

9  ’-/i 

945420 . 00 

678  790 . 00 

PROJ  : 

COM 

S  1.  IF: 

ROd 

!  I.l  1  in'. 

Fey  to 

con  l.  1. 1  me 

A 


396  945420.00  678790.00 


PROJ : 

COM 

S 1 1  E : 

ROB 

PROJ : 

COM 

SITE: 

ROB 

PROJ : 

COM 

S  III: 

ROB 

1 

PROJ : 

COM 

S 1  1  E : 

ROB 

PROJ : 

COM 

S I  TE : 

ROB 

PROJ : 

COM 

SITE: 

ROB 

397 

398 

434 

435 

436 


Hit  any  key  to 
WAITING 


945420.00 

945420 . 00 

945420. 00 

945420. 00 

945420. 00 

cont i nue 


678790 . 00 

678790. 00 

678790.00 

678790. 00 

678790. 00 


CS . 4  437  945420.00  678790.00 

PRO J :  COM 
SITE:  ROB 

C S-5  438  94 5 4 2 0 . 00  678790.0 0 

PRO J :  COM 
8  I TE :  ROB 

CS-  1  495  968600.00  672220.00 

PROJ :  APPROACH  LIGHTING  SYSTEM 
SITE:  ROB 

CS . 2  496  968600.00  672220.00 

PROJ:  APPROACH  LIGHTING  SYSTEM 
SITE:  ROB 


BO  YON  WANT  A  PRINTED  COPY?  ENTER 


OR  N :  Y 


LIS’ 

r  oi 

F  BORINGS  IN  AREA  WITHIN  GIVEN 

COORD  I NA 

NS  COORD: 

930000 

EH  COORD:  660000 

970000 

680000 

BORINS  NO. 

SID 

NS  COORD. 

EN  COORD.  PROJECT 

ft-5 

399 

945060.00 

678790.00  CON 

ROB 

A-6 

400 

945060.00 

678790.00  CON 

ROB 

A-7 

401 

945060.00 

678790.00  CON 

ROB 

A-8 

402 

945060.00 

678790.00  CON 

ROB 

A-9 

403 

945060.00 

678790.00  CON 

ROB 

A- 10 

404 

945060.00 

678790.00  CON 

ROB 

A-ll 

405 

945060.00 

678790.00  COM 

ROB 

CS-6 

393 

945420.00 

678790.00  CON 

ROB 

CS-7 

394 

945420.00 

678790.00  CON 

ROB 

A-l 

395 

945420.00 

678790.00  CON 

ROB 

A-2 

396 

945420.00 

678790.00  CON 

ROB 

A-3 

397 

945420.00 

678790.00  CON 

ROB 

A-4 

398 

945420.00 

678790.00  CON 

ROB 

CS-1 

434 

945420.00 

678790.00  CON 

ROB 

CS-2 

435 

945420.00 

678790.00  CON 

ROB 

CS-3 

436 

945420.00 

678790.00  CON 

ROB 

CS-4 

437 

945420.00 

678790.00  CON 

ROB 

CS-5 

438 

945420.00 

678790.00  CON 

ROB 

CS-1 

495 

968600.00 

672220.00  APPROACH  LIGHTING  SYSTEM 

ROB 

MAIN  MENU  FOR  BORING  DATA  BASE  SELECTION 


SUMMARY  OF  BORING  DATA  BASE  PROCEDURES  -  . .  1 

ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA  -  .  -•  2 

LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  - . -  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  -  -  4 

PLOT  LOG  OF  BORING  (S)  -  -  -  -  -  -  -  -  -  . -  -•  5 

PRINT  SUMMARY  REPORTS  OF  DATA  -  -  -  -  -  . -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  -  -  -  -  . -  ■-  7 


E n ter  S @ 1 e ction  : 4 

PLOT  OF  BORING  LOCATIONS  FOR  GIVEN  PROJECT  OR ~S I TE 
DO  YOU  WANT  A  PLOT  FOR  A  PROJECT  NAME  OR  SITE  NAME?  ENTER  P  OR  Ss 
ENTER  SITE  NAME hunts" 

DID  NOT  FIND  YOUR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM 
ENTER  Y  FOR  YES  AND  N  FOR  NO: y) 


LIST  OF  PROJECTS  AND  SITES  IN  THE  BORING  DATA  BASE 

PROJECT:  ADS 
SITE:  HUN 

PROJECT:  APPROACH  LIGHTING  SYSTEM 
SITE:  ROB 

PROJECT:  COM 
SITE:  ROB 


PROJECT:  TES 


J  J  J  J 


T ' V” «■ »" W " 


SUMMARY  OF”  BORING  DATA  BASE  PROCEDURES  -  -  -  1 
ENTER  MEW  DATA  OR  EDIT  EXISTING  DATA  -  -  -  -  2 


LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  -  -  -  -  ~  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  ~  -  4 

PLOT  LOG  OF  BORING (3)  ------------  5 

PRINT  SUMMARY  REPORTS  OF  DATA  -  -  -  -----  -  -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  -----  -  -  -  -  7 


Enter  Selection  :'v4> 

PLOT  OF  BORING  LOCATIONS  FOR  GIVEN  PROJECT  OR  SITE 
DO  YOU  WANT  A  PLOT  FOR  A  PROJECT  NAME  OR  SITE  NAME?  ENTER  P  OR  Sss 
E  N  T  E  R  G I  T  E  N  A  M  E  s  ft  u  n  t  sT’ 

DID  NOT  FIND  YOUR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM? 
ENTER  Y  FOR  YES  AND  N  FOR  NO:y> 

PLOT  OF  BORING  LOCATIONS  FOR  GIVEN  PROJECT  OR  SITE 
DO  YOU  WANT  A  PLOT  FOR  A  PROJECT  NAME  OR  SITE  NAME?  ENTER  P  OR  Ssp- 
ENTER  PROJECT  NAME sads, 


DOES  YOU 
Thi  s 


PRINTER  HAVE  WIDE  PAPER?  Y  OR  N:n" 
takes  a  Tew  minutes,  so  hang  tight. 


I'Ll.1  '  Uf  ft  OK  I  NG  I  UC  O  I  IONS  F  OK  PRUJ . :  ADS 

LA...  WES  I  COORD.  (VERTICAL  ORDINATE  IS  N-S 

80 2900 

.•  m. i 

A 

I  I  1^1  I  i  t'  i  i 

B.:2VoO 


LEGEND: 


POINT 

BORING 

POINT 

B0RIN6 

NO. 

NUMBER 

SID  SITE: 

NO. 

NUMBER 

A 

CS-1 

162  HUN 

A 

A-4 

A 

A-l 

163  HUN 

A 

A-5 

A 

A-2 

164  HUN 

A 

A-6 

A 

A-3 

165  HUN 

NUMBER  OF  BORINGS  -  7 


COORD.)  SCALE:  1  IN 


4*  hi  F  I 


SID  SITE: 

166  HUN 

167  HUN 

168  HUN 


i 

MAIN  MENU  FOR  BORING  DATA  BASE 
SUMMARY  OF  BORING  DATA  BASE  PROCEDURE 
ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA 
LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  - 
PLOT  BORING  LOCATIONS  FOR  PROJECT  OR 
PLOT  LOG  OF  BORING (S)  -  -  -  -  -  ~  -  - 
PRINT  SUMMARY  REPORTS  OF  DATA  -  -  -  - 
EXIT  TO  MAIN  OPERATING  SYSTEM  -  -  -  - 


Enter  Selection 


BORING  LOG  PI ..01  PROGRAM  FOR  ONE  10  THREE  LOGS  PER  SHEET 
ON  AN  EPSON  OR  COMPATIBLE  DOC  MATRIX  PRINTER 
Enter  the  number  or  borings  to  plat:  1,  2,  or  3  ( 14-in  paper 
DOES  PRINTER  HAVE  14-IN.  WIDE  PAPER ,  V  OR  N:y 

Enter  the  boring  number (s)  when  asked  (must  be  as  stored, 
including  blanks,  e.  q .  DM  1640;  can  be  in  UPPER  or  lower 
c  a  s  e  c  h  a  r  a  c  t  e  r  s . 

FOR  FIRST  BORINS  (hit  any  key  to  continue.) 

WAIT  INS 


cs- 


En t  er  Bor i n g  Numb er 


N o .  o  f  du.pl  i  c:  a t e  h a r  ,i  n g  n u mbers  =  2 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  DIME  YOU  WANT 
Boring  No:  :  CS--5  : 

Project  ; TES 

Site  ; BEN  : 

Project  Description  :  LI3*'6,EYB5  : 

Boring  ID:  41.0: 

Boring  No::CS-5  : 

Project  : COM 

Site  :E0B  : 

Pro j ect  Deacr i pti on  : L 1 1 0625 , FY84 
Bar  l  n  q  I D :  438 : 

Enter  the  boring  ID  for  the  baring  you  want.  : 43 t 
FOR  SECOND  BORING  (hit  any  key  to  continue). 
WAITING 


Enter  Boring  Number 


:  cs--6 


No.  of  duplicate  boring  numbers  ~  2 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT 
Boring  No::CS-6  : 

Project  : COM 

Site  : ROB  i 

F'r o  j ec t  Desc r  1  pti  on  ;  L 1 1 0625 ,  f  Y 64  : 

Boring  ID:  393: 

Boring  No::CS-6  : 

Project  : IES 

Site  : BEN  : 

Project  Description  :LI396,FY85  : 

Bor i ng  ID:  411: 

Enter  the  boring  ID  for  the  boring  you  want.  : 395 

FOR  THIRD  BORING  (hit  any  ley  to  continue). 

WA I T I NG 


cs-7 


Enter  Bor i n q  Number 


No.  or  duplicate  borinq  numbers  --  2 

NOTE  BORING  ID  WHEN  YOU  SEE  1 1#  ONE  YOU  WANE. 
Boring  No:  :  CS--7  : 

Project  : COM 

Site  : ROB  : 

Project  Description  : LI  10625, P  Y64 
Boring  ID:  394: 

Bor i ng  No: : CS 7  : 

Project  : 7 ES 

Site  : BEN  : 

Project  Description  :  LI396,F  YQ5  : 

Borinq  ID:  412: 

Enter  the  borinq  ID  for  the  borinq  you  want.  : 394 
CHECK I NG  COMPLE IE 


BORING  NUMBERS  AND  DEPTHS  ARE: 


BORING  NO. 
CS— 5 
CS  -6 
CS--7 


DEPTH,  FT. 

36.  00 
36. 00 
36.  00 


Options  for  vertical  scale  are:  5  ft/in  (max  baring  depths  < 

10  ft/in  (max  boring  depths  < 
20  ft /in  (max  boring  depths  < 
30  ft/in  (max  boring  depths  < 


40  ft) 
80  ft) 
160  ft) 
240  ft) 


ENTER  CHOICE:  5,  10,  20,  OR  30:5; 


Printer  plot.  will  take  a  few  minutes,  so  take  5. 


V 


Reduced  to  65  percent 
of  original  size 


LQS  Of  STRATA  NAtfS  AND  OESCPIPT IONS.  VERTICAL  SCALE  *  5  FT/IN 


CS-5 

SID*  438 

CS-6 

SID*  393 

CS-7  SID*  394 

E-»  CORD 

676790.00 

E-l  CORD 

678790.00 

E-l  CORD*  678790.00 

N-S  C»D 

945420.00 

N-S  CORD 

945420.00 

N-S  CORD*  945420. 00 

09 

{7,1982 

09/14/1982 

09/17/1902 

TOP  EL* 

288.90  FT 

TOP  El* 

288.10  FT 

TOP  El*  289.00  FT 

depths 

3*.  00  FT 

DEPTH* 

36.00  FT 

DEPTH--  36.00  FT 

DISTANCE  *  0  FEET 

DISTANCE  =  v  CEET 

290  - 

E 

SC 

D*  BP  F  GPA  ClY  SO 

sc 

DC  BP  F  6RA  CL  Y  SD 

SC 

DU  BP  F  SRA  CU  SAND 

L 

SC 

06k 

E 

(SC) 

m 

sc 

IT-Q6N 

;  sc 

06I-6R 

:  ;  isci 

IT! 

V 

sc 

06N-SR  NED  6PA 

;  isc) 

IT-OBN-BRI 

A 

-!  sc 

MINOR  C  6RA 

i-i  sc 

F-NEO  BRA 

T 

-j  sc 

ABUNDANT  F  SVL 

I 

i-j  sc 

HI NOR  COARSE  6RA 

0 

280  - 

SC 

0W-R,F-HED  6RA 

j-j  sc 

F-COARSE  6RA 

sc 

ABUNDANT  L6E  QUARTZ  SVL 

I 

F 

-!  SN 

LT-MW-NED  SRA  SIT  SD 

-1  SC 

F-C  6RA 

E 

j-j  SN 

DK-R.f-C  6RA  l/NIIOR 

E 

-j  sc 

OK  ft-MHT 

T 

-j  SN 

MINOR  CL Y  LENSE 

-j  M 

R-lHT-Q6l,F-C,6flASIYSD,l/CLY 

270  ; 

-!  SN 

HHT 

H s" 

V  NED  6RA 

i-j  sn 

HI  NOR  CLY  SEANS 

-i  si 

KHT-P1N  F -IH,  ERA 

iT 

72  HOUR 

-;  it 

24  HOUR 

it 

72  HOUR 

r 

1 

:-i  it 

SO 

-i  it 

00 

-1  IT 

0D 

!  i SH 

i  i 
•  ■ 

Y-PII  FIN  GRN 

• 

i  i 

j-j  SH 

MINOR  CLY  SEANS 

-i  sc 

PIN, NED  6RA 

-i  sc 

PIItWT  f-ned  bra  V  cly  so 

2M  - 

-j  SN 

«T,F-NEO  6RA 

j-j  SN 

Y-PIN 

j-j  SH 

WT 

j-j  SN 

PIN-IHT 

-j  SN 

061 

-i  in 

J-J  1 H 

£1*  252.90 

-!  BH 

EL*  253.00 

El*  252.  10 

immHMMtHtNHHKHHHMHHHHHIIHlHi 

•  PftQJ:  con  ' 

«  SITE:  Ml 

♦L06  OF  miles  CS-5  CS-4  CS-7  < 

fHHHHHMHHHHMHHHHIlHMHHHIUHif 


MAIN  MENU  FOR  BORING  DATA  BASE  SELECTION 

SUMMARY  OF  BORING  DATA  BASE  PROCEDURES  -  -  -  1 

ENTER  NEW  DATA  OR  EDIT  EXISTING  DATA  -  . .  -  2 

LOCATE  BORINGS  WITHIN  GIVEN  COORD'S  - .  -  -  -  3 

PLOT  BORING  LOCATIONS  FOR  PROJECT  OR  SITE  -  .  4 

PLOT  LOG  OF  BORING  (S)  -----  -  ■■■■  - . -  -■  -•  5 

PRINT  SUMMARY  REPORTS  OF  DATA  -----  -  . -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  -■  . . . -  7 

Sel ect i on 


En  ter 


6) 


MENU  FOR  SELECTION  OF  SUMMARY  REPORTS  Selectioi 

LIST  UF  PROJECTS  AND  SITES  --  -  -  -  -  -  . .  1 

LIST  OF  BOR  I NOS,  COORD.,  DATE,  TOP  ELEV.,  AND  DEPTH 

FOR  A  PROJECT  OR  A  SITE  .  -  -  -  -  .  - .  . -  2 

TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  &  DESCRIP)  -  .  .  3 

TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  .  4 

TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  - .  5 

LI  SI  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  . -  -  .  6 


TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  ■-  -  7 

TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -  -  - . .  8 

RETURN  TO  PREVIOUS  MENU  -  -  -  -  - . -  . -  .  . -  ~  9 


E  i  i  t  0  r  S  e  1  e  c  t  i  o  n  :  (T) 


LIST  OF  PROJECTS  AND  SITES  IN  THE  BORING  DATA  BASE 

PROJECT:  ADS 
SITE:  HUN 

PROJECT:  APPROACH  LIGHTING  SYSTEM 
SITE:  ROB 

PROJECT:  Any  Project  for  illustration. 

SITE:  Any  site 

PROJECT:  BOGUS  PROJECT  FOR  TESTING 
SITE:  ANY  SITE 

PROJECT:  COM 
SITE:  ROB 


PROJECT:  TES 


Selection 


MENU  FOR  SELECTION  OF  SUMMARY  REPORTS 

LIST  OF  PROJECTS  AND  SITES  ---------------1 

LIST  OF  BORINGS,  COORD.,  DATE,  TOP  ELEV.,  AND  DEPTH 

FOR  A  PROJECT  OR  A  SITE  -------------2 

TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  it  DESCRIP)  - - -  3 

TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -  -  -  -  4 

TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -----  5 

LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  ------  6 

TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 

TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -----  8 

RETURN  TO  PREVIOUS  MENU  -----------  -----9 

@  M  Enter  Selection  \2 

ENTER  P  TO  LIST  FOR  A  PROJECT  NAME,  OR  S  TO  LIST  FOR  A  S I TE : S 
ENTER  SITE  NAME : HUN 


BORING  SUMMARY  FOR  SITE:  HUN 


--BORING  NO.--- 

-SID- 

--NS  COORD-- 

--EW  COORD-- 

---DATE--- 

TOP  ELEV 

DEPTH, 

A-  1 

163 

736250.00 

823000. 00 

05/14/1979 

39.80 

10. 00 

A-2 

164 

736250. 00 

823000.00 

05/14/1979 

37.90 

10.00 

fi-3 

165 

736250. 00 

823000. 00 

05/14/1979 

38.20 

10.00 

A-  4 

166 

736250.00 

823000. 00 

05/14/1979 

38.20 

10.00 

A -5 

167 

736250.00 

823000 . 00 

05/14/1979 

38.70 

10. 00 

A- 6 

168 

736250.00 

823000. 00 

05/1 1/1979 

39. 30 

10.00 

CS-1 

162 

736250.00 

823000 . 00 

05/15/1979 

36.20 

25.50 

FT 


■-".v 


MENU  FOR  SELECTION  Of-  SUMMARY  REPORTS  Selec 

LI  SI  OF  PROJECTS  AND  SITES  -  -  -  -  -  --  -  -  - - -  -  1 

LIST  OF  BORINGS,  COORD. ,  DATE,  TOP  ELEV. ,  AND  DEPTH 

FOR  A  PROJECT  OR  A  SITE  -  - .  ----  -  -  -  -  -  -  -  -  2 

TABULAR  I.OG  FOR  GIVEN  BORING  (CLASS  ?/  DESCRIP)  .  -  -  -  3 

TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -  - .  4 

TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -  - .  -  5 

LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  -  -  - . -  -  6 

TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 

TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -  -  -  -  8 

RETURN  TO  PREVIOUS  MENU  -  .  . . .  . -  --  -  9 


ELn  ter  Se  1  ec  t  i  on 


t  i  or 


Enter  Boring  Number 


:  A— 1 1 


h  J  K)  t"j 


CANNOT  LOCATE  YOUR  BORING  NUMBER. 


Enter  C  to  continue  or  S  tc..stop:C^ 
Enter  Boring  Number  : C S - 1 


No.  o-f  duplicate  boring  numbers  -  4 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT. 
Boring  No: : CS- I  : 

Project  :ADS 

Site  : HUN  : 

Project  Description  :LI184,FY80  : 

Boring  ID:  162: 

Boring  No::CS-l  : 

Project  :TES 

Site  : BEN  : 

Project  Description  :LI396,FY85  : 

Boring  ID:  406: 

Boring  No::CS-l  : 

Project  :C0M 

Site  :RQB  : 

Project  Description  : LI  10625, FY84  : 

Boring  ID:  434: 

Press  any  key  to  continue 


WAITING 


u  \i  «y 


Bor  1 ng  No: : CS-  1  : 

Project  : APPROACH  LIGHTING  SYSTEM 
Site  : ROB  : 

Project  Description  : MI L  12504  FY86  : 

Boring  ID:  495: 

Enter  the  boring. ID  tor  the  boring  you  want.  : 434 


TABULAR  LOG  OF  DRILLING  SEGMENTS 

BORING  NO.:  CS- 1  SID:  434  TOP  ELEV:  289.50 

PROJECT:  COM 
SITE:  ROB 

ELEVATION  DEPTH.  FT  BORE  SIZE  BORE  TOOL 


289.50 


0.00  STD 


SS 


Gel  ecti on 


MENU  FOR  SELECTION  OF  SUMMARY  REPORTS 

LIST  OF  PROJECTS  AND  SITES  ---------  .  -  -  -  -  1 

LIST  OF  BORINGS,  COORD.,  DATE,  TOP  ELEV.,  AND  DEPTH 


FOR  A  PROJECT  OR  A  SITE  -  -----  -----  -----  2 
TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  ?<  DESCRIP)  -  ----  -  -  3 
TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -----  4 
TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -----  5 
LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  S I TE  -  -  -----  6 
TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 
TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -  -  -  -  -  8 
RETURN  TO  PREVIOUS  MENU  ------  -----  -  ----  -  -  .  9 


Enter  Selection 

Enter  Boring  Number  sa-1 


C23 


No.  of  duplicate  boring  numbers  =  3 

MOTE  BORING  IB  WHEN  YOU  SEE  THE  ONE  YOU  WANT. 

Boring  N  o : : A - 1  : 

Project  :ADS  : 

Site  : HUN  : 

Project  Description  : L 1 1 8 4 , F Y 8 0  : 

Borina  ID:  163: 

Bor i nq  No : : A- 1  : 

Project  :C0M  : 

Site  : ROB  : 

Project  Description  : L 1  1 0625 , FY84  : 

Boring  ID:  395: 

Boring  No: : A - 1  : 

Project  : TES  : 

Site  : BEN  : 

Project  Description  : L 1 396 , F Y85  : 

Boring  ID:  413: 

Enter  the  boring  ID  for  the  boring  you  want.  :  163- 
NO  DATA  FOR  THIS  BORING,  DO  YOU  WANT  TO  ENTER  ANOTHER9  V  OR  N:y 


Enter  Boring  Number 


:  CS-5 


No.  of  duplicate  boring  numbers  =  2 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT 
Bor  1 ng  Nos : CS-5  : 

Project  :TES 

Site  : BEN  : 

Project  Description  :LI396,FY85  s 

Boring  ID:  410; 


Bor l ng  No: : CS-5  : 

Project  :C0M 
Site  :RQB 

Project  Description  :LI10625,FY84 
Boring  ID:  438: 

!'>  Enter  the  taring  ID  for  the  boring  you  want.  :  438 


TABULAR  LOG  OF  BLOW  COUNTS 


BORING  NO. s  CS-5 
PROJECT:  COM 


TOP  ELEV: 


288.90 


SITE:  ROB 

ELEVATION 

DEPTH,  FT 

BLOWS/FT 

287.40 

1.50 

10 

285.90 

3. 00 

6 

284.40 

4.50 

6 

282.90 

6. 00 

15 

281.40 

7.50 

35 

279.90 

9.00 

36 

278.40 

10.50 

62 

276.90 

12.00 

52 

275.40 

13.50 

77 

273.90 

15.00 

37 

272.40 

16.50 

37 

270.90 

18.00 

75 

269.40 

19.50 

100/0.6 

267.90 

21.00 

100/0.9 

266.40 

22.50 

100/0.8 

264.90 

24.00 

100/0.6 

263.40 

25.50 

100 

261.90 

27.00 

97 

260.40 

28.50 

80 

258.90 

30.00 

57 

257.40 

31.50 

70 

255.90 

33.00 

100/0.9 

254.40 

34.50 

74 

252.90 

36. ‘OO 

57 

251.40 

37.50 

78 

REMARKS 


SUMMARY  OF  TEST  TYPES  FOR  SITE:  HUN 


TYPE  TEST  NO.  TESTS  LOC.  RESULTS 


BORING 

NO. : 

CS-1 

SID:  162 

PROJ :  ADS 

S 1 1 0 1 

GS69E 

SI  206 

GS69E 

SI  304 

GS69E 

BORING 

NO. : 

A- 1 

SID:  163 

PROJ :  ADS 

Slid 

GS69E 

S 1 206 

GS69E 

SI  304 

GS69E 

BORING 

NO.  : 

A-2 

SID:  164 

PROJ:  ADS 

SI  101 

GS69E 

SI  206 

GS69E 

SI  304 

GS69E 

BORING 

NO.  : 

A-3 

SID:  165 

PROJ:  ADS 

SI  101 

GS69E 

S 1206 

GS69E 

S 1 304 

GS69E 

BORING 

NO.  : 

A-4 

SID:  166 

PROJ:  ADS 

SI304 

GS69E 

BORING 

NO. : 

A-5 

SID:  167 

PROJ:  ADS 

SI  101 

GS69E 

S 1 206 

GS69E 

SI  304 

GS69E 

BORING 

NO.  : 

A-6 

SID:  168 

PROJ:  ADS 

SI  101 

S 1206 

GS69E 

GS69E 

Selection 


MENU  FOR  SELECTION  OF  SUMMARY  REPORTS 

LIST  OF  PROJECTS  AND  SITES  ---------------1 

LIST  OF  BORINGS,  COORD.,  DATE,  TOP  ELEV.,  AND  DEPTH 

FOR  A  PROJECT  OR  A  SITE  -------------2 

TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  &  DESCRIP)  -----  3 

TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -  -  -  -  4 

TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -  -  -  5 

LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  -  -  -  -  b 

TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 

TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -----  8 

RETURN  TO  PREVIOUS  MENU  ------  -  ------  9 

@  M  Enter  Selection  :7 

ENTER  P  TO  LIST  FOR  A  PROJECT  NAME,  OR  S  TO  LIST  FOR  A  SITE:S 
ENTER  SITE  NAME : ROB 


C29 


SUMMARY  OF  TEST  RESULTS  FOR  SITE:  ROB 


ELEVATION 

DEPTH 

TEST  NAME 

TEST  DATE  MATERIAL  RESULT  1 
REMARKS 

RESULT  2 

RESULT  3 

BORINS  NO. 

:  CS-6 

SID:  393  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

286.60 

1.50 

SI 

304 

11/05/1982  SC 

Nil. 7 

205.10 

3.00 

SI 

101 

11/05/1982  ISC] 

38 

16 

22 

285.10 

3.00 

SI 

206 

11/05/1982  CSC] 

4/79.5 

T/36.5 

285.10 

3.00 

SI 

304 

11/05/1982  [SC] 

N14.4 

283.10 

5.00 

SI 

304 

11/05/1982  SC 

N14.9 

BORING  NO. 

:  CS-7 

SID:  394  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

287.50 

1.50 

SI 

304 

11/05/1902  SC 

N7.3 

286.00 

3.00 

SI 

101 

11/05/1982  [SCI 

25 

12 

13 

286.00 

3.00 

SI 

206 

11/05/1982  [SC] 

4/81.5 

T./J4 

286.00 

3.00 

SI 

304 

11/05/1982  [SC] 

N9.7 

284.00 

5.00 

SI 

304 

11/05/1982  SC 

N7.9 

B0RIN6  NO. 

:  A-l 

SID:  395  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

289.50 

0.50 

SI 

304 

11/05/1982  SN 

N2.6 

288.50 

1.50 

SI 

101 

11/05/1982  [SC] 

26 

13 

13 

288.50 

1.50 

SI 

206 

11/05/1982  ISC] 

4/87 

T/43 

288.50 

1.50 

SI 

304 

11/05/1982  [SCI 

N13.4 

287.00 

3.00 

SI 

304 

11/05/1982  SC 

N12.6 

BORING  NO. 

:  A-2 

SID:  396  TOP 

ELEV.:  288.10 

PROJECT: 

CON 

287.80 

1.00 

SI 

304 

11/05/1982  SC 

Nil. 3 

285.80 

3.00 

SI 

304 

11/05/1982  SC 

N12.8 

BORING  NO. 

:  A-3 

SID:  397  TOP 

ELEV.:  288.10 

PROJECT: 

CON 

288.20 

0.50 

SI 

304 

11/05/1982  SN 

N9.2 

287.70 

1.00 

SI 

101 

11/05/1982  ISC] 

28 

14 

14 

287.70 

1.00 

SI 

206 

11/05/1982  CSC] 

4/81 

T/33 

287.70 

1.00 

SI 

304 

11/05/1982  [SCI 

N4.5 

285.70 

3.00 

SI 

304 

11/05/1982  SC 

N9.7 

SUMMARY  OF  TEST  RESULTS  FOR  SITE:  ROB 


(CONT. ) 


ELEVATION 

1  DEPTH 

TEST  NAME 

TEST  DATE  MATERIAL 

RESULT  1 
REMARKS 

RESULT  2 

RESULT 

BORING 

NO.;  A-4 

SID:  398  TOP  ELEV.:  288.10 

PROJECT: 

COM 

287.30 

0.50 

SI 

304 

11/05/1982  SM 

N7.2 

286,30 

1.50 

SI 

101 

11/05/1982  [SCI 

25 

12 

13 

286.30 

1.50 

SI 

206 

11/05/1982  [SCI 

4/85 

T/35 

286.30 

1.50 

SI 

304 

11/05/1982  [SCI 

till. 2 

284.80 

3.00 

SI 

304 

11/05/1982  SC 

N12.0 

BORING 

NO.:  A-5 

SID:  399  TOP  ELEV.:  288.10 

PROJECT: 

COM 

289.60 

0.50 

SI 

101 

11/05/1982  ISC] 

24 

14 

10 

289.60 

0.50 

SI 

206 

11/05/1982  [SC] 

4/51 

T/21 

289.60 

0.50 

SI 

304 

11/05/1982  CSC] 

N6.5 

287.10 

3.00 

SI 

304 

11/05/1982  SC 

N13.5 

BORING 

NO.:  A-6 

SID:  400  TOP  ELEV.:  288.10 

PROJECT: 

COM 

285.60 

0.50 

SI 

304 

11/05/1982  SC 

*110.9 

283.10 

3.00 

SI 

304 

11/05/1982  SC 

N16.1 

BORING 

NO.:  A-7 

SID:  401  TOP  ELEV.:  288.10 

PROJECT: 

COM 

288.00 

0.50 

SI 

304 

11/05/1982  SH 

H5.2 

BORING 

NO.:  A-8 

SID:  402  TOP  ELEV.:  288.10 

PROJECT: 

COM 

287.10 

0.50 

SI 

101 

11/05/1982  ISC] 

27 

14 

13 

287.10 

0.50 

SI 

206 

11/05/1982  CSC] 

4/85.5 

T/40.5 

287.10 

0.50 

SI 

304 

11/05/1982  [SC] 

N8.7 

285.60 

2.00 

SI 

304 

11/05/1982  SC 

N10.9 

BORING 

NO.:  A-9 

SID:  403  TOP  ELEV.:  288.10 

PROJECT: 

COM 

286.90 

0.50 

SI 

304 

11/05/1982  SH 

N5.6 

286.40 

1.00 

SI 

101 

11/05/1982  ICL] 

35 

15 

20 

286.40 

1.00 

SI 

206 

11/05/1982  [CL] 

4/92 

T/51 

286.40 

1.00 

SI 

304 

11/05/1982  [CL] 

HI  1.0 

RESULT  4 


il 


SUMMARy  OF  TEST  RESULTS  FOR  SITE:  ROB 


(CONT.) 


ELEVATIOK 

1  DEPTH 

TEST  NAME 

TEST  DATE  MATERIAL  RESULT  1 
REMARKS 

RESULT  2 

RESULT  3 

BORING 

NO.;  A- 10 

SID:  404  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

289.30 

0.50 

SI 

304 

11/05/1982  SM 

85.4 

288.30 

1.50 

SI 

101 

11/05/1982  ICLI 

31 

15 

16 

288.30 

1.50 

SI 

206 

11/05/1982  ICLI 

4/95 

T/51.5 

288.30 

1.50 

SI 

304 

11/05/1982  ICLI 

88.7 

BORING 

NO.:  A-ll 

SID:  405  TOP 

ELEV.:  288. 10 

PROJECT: 

COM 

287.40 

0.50 

SI 

304 

11/05/1982  SC 

87.8 

284.90 

3.00 

SI 

304 

11/05/1982  SC 

HI  3. 0 

BORING 

NO.:  CS-1 

SID:  434  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

288.00 

1.50 

SI 

304 

11/05/1982  SC 

810.7 

286.50 

3.00 

SI 

101 

11/05/1932  CCU 

35 

17 

18 

286.50 

3.00 

SI 

206 

11/05/1982  CCL] 

4/92.5 

T/61.0 

286.50 

3.00 

SI 

304 

11/05/1982  [CL] 

818.4 

284.50 

5.00 

SI 

304 

11/05/1982  SC 

H14.9 

BORING 

NO.:  CS-2 

SID:  435  TOP 

ELEV.s  288.10 

PROJECT: 

COM 

287.10 

1.50 

SI 

304 

11/05/1982  SC 

89.4 

284.60 

4.00 

SI 

304 

11/05/1982  SC 

813.9 

BORING 

NO.:  CS-3 

SID:  436  TOP 

ELEV.:  288,10 

PROJECT: 

COM 

287.20 

1.50 

SI 

304 

11/05/1982  SC 

817.7 

285.70 

3.00 

SI 

101 

11/05/1982  [SC] 

37 

17 

20 

285.70 

3.00 

SI 

206 

11/05/1982  CSC! 

4/85 

T/46.5 

285.70 

3.00 

SI 

304 

11/05/1982  CSC] 

814.4 

284.20 

4.50 

SI 

304 

11/05/1982  SC 

813.0 

BORING 

NO.:  CS-4 

SIDs  437  TOP 

ELEV.:  288.10 

PROJECT: 

COM 

288.90 

1.50 

SI 

304 

11/05/ 1982  SC 

87.2 

287.40 

3.00 

SI 

101 

11/05/1982  CSC] 

35 

16 

19 

287.40 

3.00 

SI 

206 

11/05/1982  [SC] 

4/87.5 

T/ 49 

287.40 

3.00 

SI 

304 

11/05/1982  [SCI 

817.3 

285.40 

5.00 

SI 

304 

11/05/1982  SC 

818.9 

SUHHARV  OF  TEST  RESULTS  FOR  SITE:  ROB 


(CQNT. ) 


ELEVATION  OEPTH  TEST  NAME  TEST  DATE  MATERIAL  RESULT  ]  RESULT  2  RESULT  3  RESULT  4 

REMARKS 

BORINS  NO.:  CS-5  SID:  438  TOP  ELEV. :  2S8.90  PROJECT:  COM 


287.40 

1.50  SI  304 

11/05/1982  SC 

N9.2 

285.90 

3.00  SI  101 

11/05/1982  [SCI 

31 

15 

285.90 

3.00  SI  206 

11/05/1982  [SCI 

4/84.5 

T/41.5 

285.90 

3.00  SI  304 

11/05/1982  ISCI 

U14.8 

283.90 

5.00  SI  304 

11/05/1982  SC 

H18.7 

Sel  ect i on 


»U ■'»  ■  ■  «  I II I « ||  «  Him  ■  i 


MENU  FOR  SELECTION  OF  SUMMARY  REPORTS 

LIST  OF  PROJECTS  AND  SITES  -  -  -  -•-  -  -  -  -  -  -  -  -  -  -  -  1 

LIST  OF  BORINGS,  COORD. ,  DATE,  TOP  ELEV. ,  AND  DEPTH 

FOR  A  PROJECT  OR  A  SITE  -  -  -------  -  -  2 

TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  &  DESCRIP)  .  -  -  -  3 

TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -  -  -  -  4 

TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -  -----  5 

LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  -  -  -  -  -  -  6 

TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 

TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -  -  -  ----  8 

RETURN  TO  PREVIOUS  MENU  -  -  -  .  -  -  -  -  -  -----  -  -  9 


Enter  Selection  :8 


Enter  Boring  Number  s  a  —  1 


No.  o-f  duplicate  boring  numbers  =  3 

NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT. 
Boring  No: : A-l  : 

Project  :ADS 
Site  : HUN 

Project  Description  :LI184,FY80  : 

Boring  ID:  163: 

Bor i ng  No: : A- 1  : 

Project  :C0M 

Site  : ROB  : 

Project  Description  : LI  10625, FY84  : 

Boring  ID:  395: 

Bor i ng  No: : A- 1  : 

Project  :TES 

Site  : BEN  : 

Project  Description  :LI396,FY85  : 

Boring  ID:  413: 

Enter  the  boring  ID  for  the  boring  you  want.  :163 


PROJ: .  ADS 


SITE:  HUN 


TEST  RESULTS  FOR  BORING:  A-l  SID:  143  TOP  ELEV:  39.80 


ELEVATION 

DEPTH  TEST  NAME 

TEST  DATE  MATERIAL 

RESULT  1  RESULT  2 

REMARKS 

RESULT  3 

RESULT  4 

39.80 

0.00  SI101 

05/31/1979  [SPSM1 

NP 

NP 

NP 

39.80 

0.00  SI 206 

05/31/1979  [SPSM1 

1/100 

2/100 

4/97 

6/79 

39.80 

0.00  SI206 

05/31/1979  [SPSM] 

C/25 

T/8 

39.80 

0.00  SI 304 

05/31/1979  [SPSM] 

N7.2 

35.80 

4.00  SI304 

05/31/1979  SM 

N7.2 

C35 


1.  The  LIST  commands  needed  to  retrieve  data  from  the  BORDB  data  base  on 
System  2000  are  shown  in  Table  D1 .  The  retrieved  data  obtained  with  each  list 
command  shown  in  Table  D1  must  be  stored  in  a  file  with  the  same  name  as  shown 
in  Table  D1  (using  MODEM?  or  other  communications  software  that  is  available 
on  the  microcomputer).  The  list  commands  are  broken  up  in  Table  D1  to  stay 
within  the  1  32-character  limit  imposed  by  System  2000.  A  count  should  be  made 

of  the  number  of  records  that  exist  (e.g.,  LIST  COUNT(CI)  WH  C6  EQ _  OR  C6 

EQ  _  OR  C6  EQ  _ )  to  check  the  buffer  storage  required.  For  example, 

MODEM?  has  a  maximum  buffer  storage  of  37.376  characters.  If  there  are  300 
records  with  132  characters  each,  the  buffer  capacity  will  be  exceeded 

(132  x  300  =  39,600)  and  the  LIST  command  would  have  to  limit  the  number  of 
records  to  280.  Tnus,  the  data  specified  by  the  WHERE  portion  of  the  LIST 
command  should  be  limited  so  that  the  count  value  times  the  number  of  charac¬ 
ters  per  line  does  not  exceed  280.  This  limitation  may  require  more  than  one 
of  the  same  type  .TXT  files  with  slightly  different  names  (e.g.,  BORFEATC.TXT, 
BORFEATD.TXT,  and  BORFEATE.TXT)  that  can  then  be  combined  into  one  file 
(BORFEATC.TXT)  using  a  text  editor.  The  buffer  limitations  are  not  a  problem 
with  software  developed  for  transfering  files  between  microcomputers  and  main¬ 
frames  by  the  Waterways  Experiment  Station  (V.SS)  Automation  Technology  Center 
(ATC)  (James  Jefferson,  FTS  542-3985). 

2.  All  the  necessary  dBASE  II  data  files  have  been  created  and  are 
available  on  a  disk  with  the  transfer  procedures  in  one  command  file  called 
BORTRANS  that  can  be  used  once  the  .TXT  files  of  retrieved  data  have  been 
created,  edited  to  delete  unwanted  lines,  and  checked  for  accuracy. 

Tables  D2-D11  list  the  structure  of  the  intermediate  and  final  dBASE  II  files 
and  the  command  file  BORTRANS. PRG  and  its  subprograms. 

3.  Before  the  BORTRANS. PRG  is  used,  the  retrieved  data  in  the  .TXT  files 
should  be  listed  and  checked  to  ensure  that  there  are  no  unusual  gaps  in  the 
tabular  listing.  System  2000  spaces  columns  of  data  three  characters  apart, 


based  on  the  length  of  the  data  fiel 1  or  field  name  (used  for  the  column 
header),  whichever  is  longe-.  An  extra  five  spaces  is  used  before  an  integer. 
An  extra  11  spaces  occurred  in  the  data  from  the  third  LIST  command  in 
Table  D1  when  data  were  retrieved  for  the  B0R3C.TXT  file.  It  is  possible  that 
the  same  LIST  command  may  not  always  produce  the  same  spacing  of  data.  The 
intermediate  data  files  shown  in  Tables  D2-D4  have  the  necessary  spaces  (BLNK, 
BLNK1 ,  BLNK2)  to  account  for  the  spaces  in  the  System  2000  listings.  The 
structure  of  these  files  should  be  checked  against  the  final  .TXT  files  (modi¬ 
fied  and  combined  as  necessary)  to  ensure  that  the  spacing  of  data  matches  in 
both  types  of  files. 

4.  Once  the  BORTRANS  program  is  executed  and  is  successfully  completed, 
the  intermediate  data  base  files  are  automatically  cleared,  but  the  .TXT  files 
are  not  cleared.  Thus,  the  .TXT  files  are  available,  if  needed  for  a  second 
try  in  generating  the  final  data  base  files.  The  final  data  base  files  are 
filled  in  and  index  files  are  created.  Retrieved  elevation  values  are  stored 
and  automatically  converted  to  depth  values  (using  the  top  of  hole  elevation). 
The  depth  values  are  stored  in  the  new  data  base  files.  If  the  final  data 
base  files  are  incorrect  (fields  broken  up),  the  program  CLRDBF  (Table  Dll) 
can  be  used  to  clear  all  final  data  base  files.  The  structure  of  the  interme¬ 
diate  data  base  files  should  be  checked  against  the  .TXT  files  and  corrections 
made  before  trying  BORTRANS  a  second  time. 

5.  Once  the  final  data  base  files  are  correct,  the  .TXT  files  can  be 
overwritten  and  used  to  store  more  data  retrieved  from  the  System  2000  data 
base.  Since  BORTRANS  appends  data  from  the  intermediate  data  base  files  and 
then  clears  them,  the  intermediate  files  are  ready  for  use  in  transferring 
more  data  from  the  .TXT  files. 


03 


Tabic  Di 


Commands  to  Retrieve  Data  From  System  2000  Boring  Data  B.ise  (BQRDB) 


_  Co mmands  to  List  Data  from  System  2000 _ 

LIST  Cl ,C29,C2,C3,C4,  WH  C6  EQ  ___  (or  C5  EQ )  ; 

(or  WH  C6  EQ OR  C6  EQ I  Tor  more  than  one 

project  or  site  name) 

LIST  Cl ,C29,C5,C6,C10,C28  WH  SAME ; 

LIST  Cl,C29,C7,C8,C9,Cll,C12,C13  WH  SAME; 

LIST  Cl ,C29,C14,C15,C16,C17,C18,C19,C20  WH  SAME; 

LIST  C1,C29,C21,C22,C23,C24,C25,C26,C27  WH  SAME; 

LIST  Cl ,C29,C41 ,C43,C45,C46  WH  SAME  AND  C43  EXISTS; 

LIST  Cl ,C29,C51 ,C53,C55  WH  SAME  AND  C55  EXISTS; 

LIST  C 1 , C 29 , C6 1 , C63 , C65  WH  SAME  AND  C61  EXISTS; 

LIST  C1,C291C71,C73,C75,C77,C79,C81,C83  WH  SAME 
AND  C77  EXISTS; 

LIST  Cl ,C29 ,CB5,C87  WH  SAME  AND  C77  EXISTS; 

LIST  Cl , C 29 , C9 1 ,C93,C95  WH  SAME  AND  C93  EXISTS; 


Corres¬ 

ponding 

File  Name 

Number  of 
Characters 
per  Line 

BORIC. TXT 

93 

B0R2C.TXT 

131 

B0R3C.TXT 

129 

B0R4C.TXT 

129 

B0R5C.TXT 

133 

B0RFEATC.TXT 

95 

BORSEGC.TXT 

60 

B0RTSTC.TXT 

60 

B0RTSTR1.TXT 

132 

B0RTSTR2.TXT 

65 

BORSPTC.TXT 

70 

Table  D2 


Structure  of  Initial  Data  Base  Files  for  BORMAIN.DBF 


STRUCTURE  FOR  FILE i 

C: BORIC 

.DBF 

STRUCTURE  FOR  FILE: 

C :  B0R4C 

NUMBER 

OF  RECORDS: 

00000 

NUMBER 

OF  RECORDS: 

00000 

DATE  OF 

LAST  UPDATE: 

02/26/85 

DATE  OF 

LAST  UPDATE: 

02/26/85 

PRIMARY 

USE  DATABASE 

PRIMAR, 

USE  DATABASE 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

FLD 

NAME 

TYPE 

WIDTH 

001 

AST 

C 

003 

001 

AST 

C 

003 

002 

BORID 

C 

015 

002 

BORID 

C 

015 

003 

SID 

N 

005 

003 

SID 

N 

005 

004 

BLNK1 

C 

003 

004 

LOC: ACCUR 

N 

012 

005 

CLASS 

C 

013 

005 

BLNK1 

C 

003 

006 

REMARKS 

C 

043 

006 

LOC:  REF 

C 

013 

007 

AUTHOR 

C 

010 

007 

DATE 

C 

010 

#*  TOTAL  ** 

00093 

008 

BLNK2 

C 

003 

009 

DRILLER 

C 

023 

STRUCTURE  FOR  FILE: 

C : B0R2C 

.DBF 

010 

INSP 

c 

018 

NUMBER 

OF  RECORDS: 

00000 

Oil 

LOC: BLOG 

c 

013 

DATE  OF 

LAST  UPDATE: 

02/26/85 

012 

LOC : DLQB 

c 

010 

PRIMARY 

USE  DATABASE 

**  TOTAL  ** 

00129 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

001 

AST 

C 

003 

STRUCTURE  FOR  FILE: 

C :  B0R5C 

002 

BORID 

C 

015 

NUMBER 

OF  RECORDS: 

00000 

003 

SID 

N 

005 

DATE  OF 

LAST  UPDATE: 

02/26/85 

004 

BLNK1 

C 

003 

PRIMARY 

USE  DATABASE 

005 

PROJ : NAME 

C 

043 

FLD 

NAME 

TYPE 

WIDTH 

006 

SITE: NAME 

C 

043 

001 

AST 

C 

003 

007 

ACCUR 

N 

005 

002 

BORID 

C 

015 

008 

BLNK2 

C 

003 

003 

SID 

N 

005 

009 

DAYS :  DR  I L 

N 

010 

002 

004 

BLNK1 

C 

003 

♦*  TOTAL  ** 

00131 

005 

LOC :  SAM 

C 

023 

006 

DATA: STAT 

c 

013 

STRUCTURE  FOR  FILE: 

C: B0R3C 

.DBF 

007 

HOLE: STAT 

c 

013 

NUMBER 

OF  RECORDS: 

00000 

008 

PURPOSE 

c 

023 

DATE  OF 

LAST  UPDATE: 

02/26/85 

009 

TOP: HOLE 

N 

012 

PRIMARY 

USE  DATABASF 

010 

EL: ACCUR 

N 

010 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

Oil 

DEPTH 

N 

012 

001 

AST 

C 

003 

**  TOTAL  #* 

00133 

002 

BORID 

C 

015 

003 

SID 

N 

005 

004 

BLNK1 

C 

003 

005 

PROJ : DESC 

C 

028 

006 

LAT 

N 

Oil 

002 

007 

LONS 

N 

015 

002 

008 

REF 

C 

010 

009 

BLNK2 

c 

Oil 

010 

LOC :  NS 

N 

012 

002 

Oil 

LOCiEN 

N 

013 

002 

**  TOTAL  ** 

00129 

m 


Table  D3 


Structure  oF  Intermediate  Data  Base  Files  Tor  BORMAIN.DBF 


STRUCTURE  FOR  FILE: 

C: 

BOR  1 

.DBF 

NUMBER 

OF  RECORDS: 

00000 

STRUCTURE  FOR  FILE: 

C: 

B0R4 

•  DBF 

DATE  OF 

LAST  UPDATE: 

02/26/85 

NUMBER 

OF  RECORDS: 

00000 

PRIMARY 

USE  DATABASE 

DATE  OF 

LAST  UPDATE: 

02/26/85 

FLD 

NAME 

TYPE  WIDTH 

DEC 

PRIMARY 

USE  DATABASE 

001 

BORID 

C 

010 

FLD 

NAME 

TYPE  WIDTH 

DEC 

002 

SID 

N 

005 

001 

BORID 

C 

010 

003 

CLASS 

C 

010 

002 

SID 

N 

005 

004 

REMARKS 

C 

040 

003 

LOC: ACCUR 

N 

001 

005 

AUTHOR 

C 

010 

004 

LOC: REF 

C 

010 

##  TOTAL  #t 

00076 

005 

DATE 

c 

010 

006 

DRILLER 

c 

020 

STRUCTURE  FOR  FILE: 

C: 

B0R2 

.DBF 

007 

I NSP 

c 

015 

NUMBER 

OF  RECORDS: 

00000 

008 

LOC: BLOG 

c 

010 

DATE  OF 

LAST  UPDATE: 

02/26/85 

009 

LOC: DLOG 

c 

010 

PRIMARY 

USE  DATABASE 

**  TOTAL  ** 

00092 

FLD 

NAME 

TYPE  WIDTH 

DEC 

001 

BORID 

C 

010 

STRUCTURE  FOR  FILE: 

C: B0R5 

002 

SID 

N 

005 

NUMBER 

OF  RECORDS: 

00000 

003 

PROJ : NAME 

C 

040 

DATE  OF 

LAST  UPDATE: 

02/26/85 

004 

SIT£:NAME 

C 

040 

PRIMARY 

USE  DATABASE 

005 

ACCUR 

N 

001 

FLD 

NAME 

TYPE  WIDTH 

006 

DAYS: DRIL 

N 

004 

002 

001 

BORID 

C 

010 

*#  TOTAL  ** 

00101 

002 

SID 

N 

005 

003 

LOCsSAM 

C 

020 

STRUCTURE  FOR  FILE: 

C: B0R3 

.DBF 

004 

DATA: STAT 

C 

010 

NUMBER 

OF  RECORDS: 

00000 

005 

HOLE: STAT 

C 

010 

DATE  OF 

LAST  UPDATE: 

02/26/85 

006 

PURPOSE 

C 

020 

PRIMARY 

USE  DATABASE 

007 

TOP: HOLE 

N 

008 

002 

FLD 

NAME 

TYPE  WIOTH 

DEC 

008 

EL: ACCUR 

N 

001 

001 

BORID 

C 

010 

009 

DEPTH 

N 

007 

002 

002 

SID 

N 

005 

♦#  TOTAL  ** 

00092 

003 

PROJ : DESC 

C 

025 

004 

LAT 

N 

009 

002 

005 

LONG 

N 

010 

002 

006 

REF 

C 

015 

007 

LOC:  NS 

N 

010 

002 

008 

LOCtEN 

N 

010 

002 

t*  TOTAL  ** 

00095 

D6 


STRUCTURE  FOR  FILE:  C : BORFEATC . DBF 
NUMBER  OF  RECORDS:  OOOOO 

DATE  OF  LAST  UPDATE:  02/26/85 
PRIMARY  USE  DATABASE 


FLD 

001 

002 

003 

004 

005 

006 

007 

008 

009 


TYPE  WIDTH 


STRUCTURE  FOR  FILE:  C:BORSPTC 
NUMBER  OF  RECORDS:  00355 

DATE  OF  LAST  UPDATE:  03/05/85 
PRIMARY  USE  DATABASE 


AST 

C 

003 

FLD 

NAME 

TYPE 

WIDTH 

BORID 

c 

015 

001 

AST 

C 

003 

SID 

N 

005 

002 

BORID 

C 

015 

BLNK  1 

C 

003 

003 

SID 

N 

005 

FEATiNAME 

C 

013 

004 

BLQWiELEV 

N 

012 

FEAT : ELEV 

N 

009 

002 

005 

BLOW: CTS 

C 

010 

BLNK2 

C 

003 

006 

BLNK 

C 

003 

FEAT:DATE 

C 

013 

007 

BLOW: RMKS 

C 

020 

FEAT : DESC 

-C 

030 

«* 

TOTAL  ** 

00069 

*» 

00095 

STRUCTURE  FOR  FILE:  CiBORSEGC 
NUMBER  OF  RECORDS:  OOOOO 

DATE  OF  LAST  UPDATE:  02/26/85 


FLD 

001 

002 

003 

004 

005 

006 

007 


STRUCTURE  FOR  FILE: 
NUMBER  OF  RECORDS: 
DATE  OF  LAST  UPDATE: 
PRIMARY  USE  DATABASE 


C: B0RTSTR1 .  DBF 

OOOOO 

02/26/85 


'  USE  DATABASE 

FLD 

NAME 

TYPE 

WIDTH 

NAME 

TYPE 

WIDTH 

DEC 

001 

AST 

C 

003 

AST 

C 

003 

002 

BORID 

C 

015 

BORID 

C 

015 

003 

SID 

N 

005 

SID 

N 

005 

004 

BLNK 

N 

003 

BLNK 

C 

003 

005 

TESTiNAME 

C 

013 

BOR: TOOL 

C 

013 

006 

TEST : DATE 

C 

013 

BOR: SIZE 

C 

Oil 

007 

TEST : MAT 

C 

013 

BOR: ELEV 

N 

009 

002 

008 

TEST : ELEV 

N 

009 

iL  ** 

00060 

009 

BLNK2 

C 

003 

010 

TEST : RES1 

C 

018 

IRE  FOR  FILE: 

C: BORTSTC 

.DBF 

Oil 

TEST : RES2 

c 

018 

OF  RECORDS: 

OOOOO 

012 

TEST : RES3 

c 

018 

LAST  UPDATE: 

02/26/85 

013 

TEST : RES4 

c 

015 

’  USE  DATABASE 

014 

REMARKS 

c 

020 

NAME 

TYPE 

WIDTH 

DEC 

**  TOTAL  #* 

00167 

AST 

C 

003 

BOR  I  D 

SID 

BLNK 

TYPiNAME 
TYP: NUM 
TYP:LOC 


#*  TOTAL  ** 


015 

005 

003 

013 

010 

010 

00060 


STRUCTURE  FOR  FILE:  C: B0RTSTR2. DBF 
NUMBER  OF  RECORDS:  OOOOO 

DATE  OF  LAST  UPDATE:  02/26/85 
PRIMARY  USE  DATABASE 
FLD  NAME  TYPE  WIDTH  DE 

001  AST  C  003 

002  BORID  C  015 

003  SID  N  005 

004  BLNK  N  003 

005  TEST : RES4  C  018 

006  REMARKS  C  020 

*#  TOTAL  ##  00065 


Structure  0*  Final  BQRDBM  Data  Base  Files 


STRUCTURE  FOR  FILE* 

CjBORMAIN 

.DBF 

STRUCTURE  FOR  FILE.* 

C: BORFEA 

.DBF 

NUMBER 

OF  RECORDS! 

00044 

NUMBER 

OF  RECORDS: 

00490 

DATE  OF 

LAST  UPDATE! 

04/02/85 

DATE  OF 

LAST  UPDATE! 

03/20/85 

PRIMARY 

USE  DATABASE 

PRIMARY 

USE  DATABASE 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

001 

BOR  I D 

C 

010 

001 

BOR  I D 

C 

010 

002 

SID 

N 

005 

002 

SID 

N 

005 

003 

CLASS 

C 

010 

003 

FEATiNAME 

C 

010 

004 

REMARKS 

C 

040 

004 

FEA: DEPTH 

N 

007 

002 

005 

AUTHOR 

C 

010 

005 

FEAT ! ELEV 

N 

008 

002 

006 

PROJ:NAME 

C 

040 

006 

FEAT :  DATE 

C 

010 

007 

SITE! NAME 

c 

040 

007 

FEAT : DESC 

C 

030 

008 

PROJ : DESC 

c 

025 

*#  TOTAL  ** 

00081 

009 

LAT 

N 

009 

002 

010 

LONG 

N 

010 

002 

STRUCTURE  FOR  FILE: 

C: BORSEG 

.DBF 

Oil 

ACCUR 

N 

001 

NUMBER 

OF  RECORDS: 

00045 

012 

REF 

C 

015 

DATE  OF 

LAST  UPDATE: 

03/28/85 

013 

LOCiNS 

N 

010 

002 

PRIMARY 

USE  DATABASE 

014 

LOCi EM 

N 

010 

002 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

015 

LOC: ACCUR 

N 

001 

001 

BORID 

C 

010 

016 

LOCiREF 

C 

010 

002 

SID 

N 

005 

017 

DATE 

C 

010 

003 

BOR: TOOL 

C 

010 

010 

DRILLER 

C 

020 

004 

BOR: SI ZE 

C 

005 

019 

INSP 

C 

015 

005 

BOR:DEPTH 

N 

007 

002 

020 

LOC: BLOG 

C 

010 

006 

BOR: ELEV 

N 

008 

002 

021 

LOC : DLOG 

C 

010 

»#  TOTAL  ** 

00046 

022 

LOCsSAM 

C 

020 

023 

DATAjSTAT 

C 

010 

STRUCTURE  FOR  FILEi 

C: BORSPT 

.DBF 

024 

HOLEiSTAT 

C 

010 

NUMBER 

OF  RECORDS: 

00355 

025 

PURPOSE 

C 

020 

DATE  OF 

LAST  UPDATE: 

03/28/85 

026 

TOP:  HOL c. 

N 

008 

002 

PRIMARY 

USE  DATABASE 

027 

ELsACCUR 

N 

001 

FLD 

NAME 

TYPE 

WIDTH 

DEC 

028 

DEPTH 

N 

007 

002 

001 

BORID 

C 

010 

029 

DAYSiDRIL 

N 

004 

002 

002 

SID 

N 

005 

**  TOTAL  ** 

00392 

003 

BLO: DEPTH 

N 

007 

002 

004 

BLOW: ELEV 

N 

008 

002 

005 

BLOW: CTS 

C 

010 

006 

BLOW: RMKS 

C 

020 

**  TOTAL  *# 

00061 

| 


(Continued) 


STRUCTURE  FOR  FILE:  C:BORTST 
NUMBER  OF  RECORDS:  00104 

DATE  OF  LAST  UPDATE:  03/21/85 
PRIMARY  USE  DATABASE 


FLD 

NAME 

TYPE  WIDTH 

001 

BORID 

C 

010 

002 

SID 

N 

005 

003 

TYP: NAME 

C 

010 

004 

TYPiNUM 

C 

003 

005 

TYP: LOC 

C 

010 

*♦  TOTAL 

** 

00039 

STRUCTURE  FOR  FILE: 

C: 

BORRSL 

NUMBER  OF  RECORDS: 
DATE  OF  LAST  UPDATE: 
PRIMARY  USE  DATABASE 
FLD  NAME 

001  BORID 

002  SID 

003  TEST : NAME 

004  TEST : DATE 

005  TEST : MAT 

006  TST : DEPTH 

007  TEST : ELEV 

008  TEST : RES1 

009  TEST: RES2 

010  TEST: RES3 

Oil  TEST :  RES4 

012  REMARKS 

**  TOTAL  #* 


00205 

03/29/85 

TYPE  WIDTH 
C  010 

N  005 

C  010 

C  010 

C  010 

N  007 

N  008 

C  015 

C  015 

C  015 

C  015 

C  020 

00141 


STRUCTURE  FOR  FILE: 
NUMBER  OF  RECORDS: 
DATE  OF  LAST  UPDATE: 
PRIMARY  USE  DATABASE 
FLD  NAME 

001  BORID 

002  SID 

003  PROJiNAME 

004  SITE: NAME 

005  PROJ : DESC 

006  LOC : NS 

007  LOC: EW 

008  DATE 

009  TOP: HOLE 

010  DEPTH 

Oil  PLTNO 

♦*  TOTAL  ** 


CiBORSID 

00044 

04/12/85 

TYPE  WIDTH 
C  010 

N  005 

C  040 

C  040 

C  025 

N  010 

N  010 

C  010 

N  008 

N  007 

N  003 

00169 


Table  D6 


Listing  q f  Command  File  to  Transfer  Retrieved  Data  into  BQRDBli  Files 


*  COMMAND  FILE  TO  TRANSFER  RETRIEVED  DATA  FILES  FROM  BORDB  ON  SYSTEM  200 

*  TO  DBASE  II  DATA  FILES.  THIS  FILE  IS  CALLED  " BORTRANS . PRG “ 

SET  TALK  OFF 

*  APPEND  FROM  .TXT  FILES 
USE  BORIC 

APPEND  FROM  BORIC. TXT  SDF 
USE  B0R2C 

APPEND  FROM  B0R2C.TXT  SDF 
USE  B0R3C 

APPEND  FROM  B0R3C.TXT  SDF 
USE  B0R4C 

APPEND  FROM  B0R4C.TXT  SDF 
USE  B0R3C 

APPEND  FROM  B0R5C.TXT  SDF 

*  use  intermediate  Files  to  append  From  above  and  change  Field  lengths. 

*  Cannot  use  update  command  when  Field  lengths  change;  decimals  chopped 
use  borl 

append  From  boric 
use  bor2 

append  from  bor2c 
use  bor3 

append  From  bor3c 
use  bor4 

append  From  bor4c 
use  bor5 

append  From  bor5c 

t  COMBINE  INTO  MAIN  BORING  INFORMATION  FILE 
USE  BORMAIN 
APPEND  FROM  B0R2 

UPDATE  FROM  BOR1  ON  SID  REPLACE  CLASS , REMARKS , AUTHOR 

UPDATE  FROM  B0R3  ON  SID  REPLACE  PROJ i DESC , LAT , LONG , REF , LOCi NS , LOC: EW 

UPDATE  FROM  B0R4  ON  SID  REPLACE  LOCi ACCUR,lQCi REF, ; 

DATE, DR ILLER, INSP, LOC J BLOG, LOCi  DLOG 

UPDATE  FROM  B0R3  ON  SID  REPLACE  LOC s SAM , DATAi STAT , ; 

HOLE l  STAT, PURPOSE, TOP i HOLE, EL i ACCUR, DEPTH 

*  FINISH  APPENDING  FROM  .TXT  FILES  TO  OTHER  DATA  F i LES 
USE  BORFEATC 

APPEND  FROM  BORFEATC. TXT  SDF 
USE  BORSEGC 

APPEND  FROM  BORSEGC. TXT  SDF 
USE  BORTSTC 

APPEND  FROM  BORTSTC. TXT  SDF 
USE  BORTSTRl 

APPEND  FROM  BORTSTRl .TXT  SDF 
USE  B0RTSTR2 

APPEND  FROM  B0RTSTR2.TXT  SDF 
USE  BORSPTC 

APPEND  FROM  BORSPTC . TXT  SDF 

(Continued) 


T«bl»  D6  (Concluded) 


*  APPEND  TO  FINAL  BORDB  FILES 
USE  BORFEA 

APPEND  FROM  BORFEATC 

USE  B0RSE6 

APPEND  FROM  B0RSE6C 

USE  BORTST 

APPEND  FROM  BORTSTC 

USE  BORSPT 

APPEND  FROM  BORSPTC 

*  COMBINE  B0RTSTR1  AND  B0RTSTR2  INTO  FINAL  BORRSL. DBF 
DO  BORUP 

*  CLEAR  INTERMEDIATE  FILES 
DO  BORCLR 

*  GENERATE  INDEX  FILES 
DO  BORINIT 

*  CONVERT  ALL  ELEVATIONS  TO  DEPTHS 
DO  BORELDEP 

SET  TALK  ON 
RETURN 


Tablt  07 


Listina  of  Command  File  BORUP.PRQ 


t  COMMAND  FILE  TO  COMBINE  B0RTSTR1  AND  B0RTSTR2  B0RUP.PR6 

SET  TALK  OFF 

USE  B0RTSTR1 

STORE  1  TO  RECNO 

DO  NHILE  .NOT.  EOF 

REPLACE  BLNK  WITH  RECNO 
SKIP 

STORE  RECNO  +  1  TO  RECNO 
ENDDO 

USE  B0RTSTR2 
STORE  1  TO  RECNO 
DO  WHILE  .NOT.  EOF 

REPLACE  BLNK  WITH  RECNO 
SKIP 

STORE  RECNO  +  1  TO  RECNO 
ENDDO 
CLEAR 

USE  B0RTSTR1 

UPDATE  FROM  B0RTSTR2  ON  BLNK  REPLACE  TEST i RES4 , REMARKS 
USE 

USE  BORRSL 

APPEND  FROM  B0RTSTR1 
SET  TALK  ON 
RETURN 


#  COMMAND  FILE  TO  INITIATE  BORSID.DBF  AND  ALL  INDEX  FILES  FOR  USE  IN  BORDBM 

#  PROGRAM  AFTER  DATA  IN  .TXT  FILES  HAVE  BEEN  COPIED  INTO  DBF  FILES. 

#  BORINIT. PRG 
SET  TALK  OFF 

USE  BORSID 

APPEND  FROM  BORMAIN 

INDEX  ON  BORID  TO  BORSIDI 

INDEX  ON  STR  (SID, 5,0)  TO  BORSIDN 

INDEX  ON  STR(L0CiNS,10,2)  ♦  STR (LOCs EW , 10 , 2)  TO  BORSIDL 
INDEX  ON  PROJ : NAME  +  SITEsNAME  TO  BORSIDP 
USE  BORMAIN 

INDEX  ON  BORID  +  STR (SID, 5 ,0)  TO  BORMAINI 
USE  BORFEA 

INDEX  ON  BORID  +  STR(SID,5,0)  +  STR < 1 5000-FEATs ELEV , 8 , 2)  TO  BORFEAI 
USE  BORSEG 

INDEX  ON  BORID  +  STR(SID,5,0)  +  STR ( 15000-B0R: ELEV , 8 , 2>  TO  BORSEGI 
USE  BORTST 

INDEX  ON  BORID  TO  BORTSTI 
INDEX  ON  STR(SID,S,0)  TO  BORTSTN 
USE  BORRSL 

INDEX  ON  STR (SID, 5, 0)  +  BORID  +  STR ( 15000-TESTi ELEV , B , 2)  TO  BORRSLI 
USE  BORSPT 

INDEX  ON  BORID  +  STR (SID,5,0)  +  STR ( 15000-BL0W! ELEV , 8 , 2)  TO  BORSPTI 

SET  TALK  ON 

RETURN 


#  COMMAND  FILE  TO  CONVERT  ELEVATIONS  TO  DEPTHS  FOR  DATA  RETRIEVED  FROM  BORDB 

*  ON  CDC  AND  SET  UP  IN  DATA  FILES  FOR  BORDBM  UNDER  DBASE  II.  BORELDEP. PRS 
SET  TALK  ON 

USE  BORSID  INDEX  BORSIDI 
STORE  «  TO  RECNO 

*  CYCLE  THRU  BORSID  AND  EACH  DFB  WITH  ELEV  AND  DEPTH. 

DO  NHILE  .NOT.  EOF 

STORE  TOP: HOLE  TO  TOPELM 

STORE  BORIS  TO  BORNOM 

STORE  SID  TO  BORSIDM 

STORE  STR(B0RSIDM,5,0)  TO  BORSIDC 

« 

USE  BORFEA  INDEX  BORFEAI 
FIND  &80RN0M 
IF  •  <>  0 

DO  NHILE  BORID  -  BORNOM  .AND.  .NOT.  EOF 
IF  SID  *  BORSIDM 

REPLACE  FEA: DEPTH  WITH  TOPELM  -  FEATsELEV 
SKIP 
ELSE 
SKIP 
ENDIF 
ENDDO 
ENDIF 

# 

USE  BORSEQ  INDEX  BORSEGI 
FIND  &BORNOM 
IF  «  <>  0 

DO  NHILE  BORID  «  BORNOM  .AND.  .NOT.  EOF 
IF  SID  *  BORSIDM 

REPLACE  BORsDEPTH  NITH  TOPELM  -  BOR: ELEV 
SKIP 
ELSE 
SKIP 
ENDIF 
ENDDO 
ENDIF 


(Continutd) 


Table  D9  (Concluded) 


USE  BORSPT  INDEX  B0R5PTI 
FIND  &BORNOM 
IF  #  <>  0 

DO  WHILE  BORID  -  BORNON  .AND.  .NOT.  EOF 
IF  SID  :  BORSIDM 

REPLACE  BLO: DEPTH  WITH  TOPELM  -  BLOWsELEV 
SKIP 
ELSE 
SKIP 
ENDIF 
ENDDO 
ENDIF 

• 

USE  BORRSL  INDEX  BORRSLI 
FIND  '&BORSIDC ' 

IF  #  <>  0 

DO  WHILE  SID  *  BORSIDM  .AND.  .NOT.  EOF 

REPLACE  TST : DEPTH  WITH  TOPELM  -  TEST i ELEV 
SKIP 

ENDDO 

ENDIF 

*  INCREMENT  BORSID  TO  NEXT  BORID 
USE  BORSID  INDEX  BORSIDI 
60  RECNO 
SKIP 
IF  EOF 
LOOP 
ELSE 

STORE  #  TO  RECNO 
ENDIF 
ENDDO 

SET  TALK  ON 
RETURN 


8QRCLR. PRS 


*  CLEAR  INTERMEDIATE  FILES 


SET  TALK  OFF 

CLEAR 

* 

USE  BORIC 

COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  BORIC 
COPY  STRU  TO  BORIC 

t 

USE  B0R2C 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R2C 
COPY  STRU  TO  B0R2C 
* 

USE  B0R3C 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R3C 
COPY  STRU  TO  B0R3C 
* 

USE  B0R4C 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R4C 
COPY  STRU  TO  B0R4C 
» 

USE  BORSC 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R5C 
COPY  STRJ  TO  BORSC 
# 

USE  BOR1 

DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  BOR1 
COPY  STRU  TO  BORi 


* 

USE  B0R2 

DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R2 
COPY  STRU  TO  B0R2 
• 

USE  B0R3 

DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R3 
COPY  STRU  TO  B0R3 
• 

USE  B0R4 

DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0R4 
COPY  STRU  TO  B0R4 
* 

USE  B0R5 

DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  BOR5 
COPY  STRU  TO  B0R5 
* 

USE  BORFEATC 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  BORFEATC 
COPY  STRU  TO  BORFEATC 
• 

USE  B0RSE6C 
DELE  FILE  BORTMP 
COPY  STRU  TO  BORTMP 
USE  BORTMP 
DELE  FILE  B0RSE8C 
COPY  STRU  TO  B0RSE8C 


(Continued) 


Tab  1 •  DIO  (Concluded) 


USE  BORTSTC 

USE  BORSPTC 

DELE  FILE  BORTMP 

DELE  FILE  BORTMP 

COPY  STRU  TO  BORTMP 

COPY  STRU  TO  BORTMP 

USE  BORTMP 

USE  BORTMP 

DELE  FILE  BORTSTC 

DELE  FILE  BORSPTC 

COPY  STRU  TO  BORTSTC 

JL 

COPY  STRU  TO  BORSPTC 

m 

W 

USE  BORTSTR1 

w 

USE 

DELE  FILE  BORTMP 

DELE  FILE  BORTMP 

COPY  STRU  TO  BORTMP 

SET  TALK  ON 

USE  BORTMP 

RETURN 

DELE  FILE  BORTSTR1 

COPY  STRU  TO  BORTSTR1 

M 

w 

USE  B0RTSTR2 

DELE  FILE  BORTMP 

COPY  STRU  TO  BORTMP 

USE  BORTMP 

DELE  FILE  B0RTSTR2 

COPY  STRU  TO  B0RTSTR2 

1 


*  command  file  to  clear  main 
set  talk  off 

* 

use  bormain 

copy  stru  to  bortmp 

use  bortmp 

dele  file  bormain 

copy  stru  to  bormain 

» 

use  borsid 
dele  file  bortmp 
copy  stru  to  bortmp 
use  bortmp 
dele  file  borsid 
copy  stru  to  borsid 
* 

use  borseg 

dele  file  bortmp 

copy  stru  to  bortmp 

use  bortmp 

dele  file  borseg 

copy  stru  to  borseg 

* 

use  borspt 
dele  file  bortmp 
copy  stru  to  bortmp 
use  bortmp 
dele  file  borspt 
copy  stru  to  borspt 
• 


BORDBM  dbf  files  for  revisions.  CLRDBF.PRG 


use  bortst 

dele  file  bortmp 

copy  stru  to  bortmp 

use  bortmp 

dele  file  bortst 

copy  stru  to  bortst 

* 

use  borrsl 

dele  file  bortmp 

copy  stru  to  bortmp 

use  bortmp 

dele  file  borrsl 


copy  stru  to  borrsl 
* 


USE 

DELE  FILE  BORTMP 
set  talk  on 
return 


use  borfea 

dele  file  bortmp 

copy  stru  to  bortmp 

use  bortmp 

dele  file  borfea 

copy  stru  to  borfea 


Program  Name 


BuRDBn  .  F'RG 
BGRMEXF'L.  F'RG 
BORMENUM.  F'RG 
BORINPM  .F'RG 
BORMPRNT.PRG 
BORMSCRN.  F'RG 
BORCHECK . PRG 
BQRFIND  .PRG 
BORENTRM .  PRG 
BORFEAPT. PRG 
BORFEASN. PRG 
B  0 R S  E  G  P  T . PRG 
BORSEGSN. PRG 
BORSPTPT. PRG 
BQRSPT5N .  PRG 
BORTSTF'T .  PPG 
BORTSTSN. PRG 
BORRSLF'T.  PRG 
BORRSLSN. PRG 
BORLOC  .F'RG 
BORCORP  T , PRG 
BORCORD  .PRG 
BOF'MAP  .F'RG 
BQRL0G3  .F'RG 
SGROOT.  F'RG 
B0R2L0G  .PRG 
BQR3LGG  .PRG 
BORF'R  I  NT .  C'R'G 
BORPROJ  .F'RG 
BORLIST  .F'RG 
BORLQGPT . PRG 
BCRDR ILL.  F'RG 
BORBLOW  .PRG 
BORTES  IS .  F'RG 
BORRESUL . PPG 
BGRLOGT  .PRG 


*  modified  boring  data  base  main  menu  Oi-04-85,  BuRDBM.F'RG 

*  FOR  USE  WITH  BATA  RETRIEVED  FROM  SYSTEM  2000  ON  CDC, 
c  1  ear 

set  talk  off 

store  M  to  running 

do  to h i 1 e  running  '  7  ' 

SET  PRINT  ON 
C HR  t  27  »  + " @ " 

SET  PRINT  OFF 


«mIN  r  L  m_  FOR  PORING  DATA  BASE  SELECTION 

OF  1  :  N  D .  T m  FtoSE  PROCEDURES  -  -  -  1 

t  V  [ "  NFto  I.'-  [LIT  E  >  ISTING  DATA  -  -  -  -  2 

_  -  P  r  .  \  _  *.  .  -IN  I  .  E  N  C  UOR  D  S  -  -  -  -  -  3 

r  l  L:  T  P  R  i  N  -1  -  ’  .  -  V;  TOR  PROJECT  OR  SITE  -  -  4 

Plot  _:iij  re  puRlNG  i-  -  --  --  --  --  --  -  5 

PRINT  S  U  M  M  A  R  >  RERORTS  OF  DATA  -  --  --  --  -  6 

EXIT  TO  MAIN  OPERATING  SYSTEM  --------  7 


5 ct  5  € 

^  e  -Ti  arf- 

n  E  M  m  R  \ 

R  E  M  h  R  \ 

m  .i ;  n 

S  u  N  H  r.  A  •  0  F 

REMARK 

t  N  ’  E  N  F  to 

«  E  N  m  R  \ 

_  7  m  f  F.  R  r 

^  E  f1  m  R v 

F’  l  D  T  r  R  i  N 

R  E  M  R  Y 

Plot  _:ig  l 

REMARI 

REMARK 


ACCEPT  Enter  Selection 

store  '(running)  to  r u n n 1 n g 
* 

*  special  er  it  =  0  to  enter  dBASE  II  command  language 
if  running  =  '0' 
erase 


to  running 


remark.  Enter  DO  B 0 R D B M  to  return  to  this  data  base  menu. 


store  '7  to  running 
1  oop 
e  n  d  1  f 
* 

if  running  =  1 

DO  BORNE X PL 
1  0  0  p 
a  0  d  1  f 

* 

i  r  urn  1  ng  =  2  ' 

DO  BORMENUM 
1  OOp 

e  n  d  1  f 


+  r  j  n  n  i  n  q 


DO  BORLOC 
1  oop 
end  i  f 
* 

if  running  =  6 

DO  BORPRINT 
loop 
end  1  f 

* 

if  running  =  '  4  " 

DO  BORCORD 
loop 
end l  f 
* 

IF  RUNNING  =  5  ' 

DO  B0RL0G3 
LOOP 
END  I F 
* 

if  running  <  >  7  ' 

remark  Invalid  selection 

accept  Enter  7  to  quit  to  system,  or  "Return"  to  try  again'  to  running 
e  n  d  l  f 
* 

if  running  =  ’  7  ‘ 

REMARK  Exiting  BORING  DATA  BASE  to  System. 

remark  Enter  DBASE  BORDBM  and  a  "Return"  to  reenter  data  base, 

REMAP K  unless  all  BORDBM  files  are  on  disk  in  drive  A,  then 

REMARK  enter  DBASE,  followed  by  SET  DEFAULT  TO  A,  then  enter 

remark  DO  BORDBM. 

QUIT 
e  n  d  i  f 
* 

ENDDO 

return 


*  Summary  of  BQRDBM  capabilities  and  procedures.  BORMEXPL.PRG 
erase 

9 

remark  This  boring  data  base  package,  called  B0RDBM ,  uses  menus  to  provide 
remark  the  following  options: 
remark  a.  Data  entry  and  editing. 

remark  b.  List  of  borings  bounded  by  two  sets  of  givu-n  coordinates, 

remark  c.  Plot  of  boring  locations  on  dot  matrix  printer, 

remark  d.  Plot  of  boring  logs  on  dot  matrix  printer, 

remark  e.  Various  summary  reports. 

r  o m ark 
r  e  m  a  r  k 
REMAPf 
REM ARH 
REMARK 
REMARk 
P:  E  fl  A  R  k 

remark  One  or  more  index  files  are  used  with  the  main  files  to  reduce  the 
r e m a r  k  time  for  locating  data.  A  special  file  (B0R3ID.DBF  plus  index  files) 
remark  is  used  to  keep  track:  of  borings  and  list  pertinent  data  for  duplicate 
remark  borings. 

remark:  Hit  any  key  to  continue, 

wait 


r  e  m  a  r  k 
r  e  m  a  r  k 
remar k 
remar k 
r  e  m  a  r  k 
r  emar k 
remark 
remar k 
remar k 
r  e  m  a  r  k 
remar  k. 
r  e  m  a  r  k 
remark: 


remark:  T  i '  s  package  is  identical  to  the  boring  data  base  under  System  2000 

remark  on  the  Corps-wide  time  sharing  system  operated  by  Control  Data  Corp. 
remark:  (CDC).  A  transfer  program  package  is  available  for  transfering 

remark  data  retrieved  from  System  2000  to  this  dBase  II  software  package. 

9 

remark  Hit  any  key  to  continue 

wait 

ret  u r  n 


Identical  boring  numbers  can  be  used  for  different  projects,  sites, 
or  project  descriptions,  since  a  unique  number  is  automatically 
assigned  to  each  new  boring  entered  into  the  data  base.  When  a  new 
boring  is ‘entered,  its  number  is  checked  and  if  duplicate  numbers 
exist  the  user  can  chose  to  see  a  list  of  the  project  name,  site  name 
and  project  description.  When  other  data  is  entered  for  a  boring,  the 
user  is  asked  for  the  boring  number  and  asked  to  select  the  boring 
system  identification  (SID),  if  duplicate  boring  numbers  exist. 

Thus ,  boring  information  should  be  entered  before  other  data  for  that 
boring.  Once  the  top  of  hole  elevation  is  entered,  depths  can  be 
entered  for  other  data,  since  depths  are  automatically  stored  and  used 
to  calculate  elevations  using  the  entered  depth  and  the  top  of  hole 
elevation. 


Data  entry  and  editing  are  divided  into  six  catagories: 

a.  Boring  information  (stored  in  B0RMAIN.DBF), 

b.  Drilling  interval  data  (B0RSEG. DBF)  , 

c.  Class.  ?!  descr.  of  soil  and  rock  layers  (B0RFEA.  DBF)  , 

d.  Split  spoon  test  data  (B0RSPT . DBF )  , 

e.  Summary  of  test  types  (B0RT3T. DEF) , 

f.  Test  results  (BORRSL.DBF). 


DO  BORMENUM 


*  MENU  FOR  SELECTION  OF  FILES  TO  ENTER,  REVIEW,  OR  EDIT  DATA  = 
store  'G'  to  continue 
do  while  continue  <>  '7' 
erase 


? 

remark.  MENU  FOR  ENTERING  NEW  DATA 

remark  OR  REVIEWING,  OR  EDITING  EXISTING  DATA  Selection 

remark  BORING  INFORMATION  -  -  -  -  1 

7 

remark  SOIL  &  ROCK  LAYERS  (Class.  &  Descrip.)  ---------2 

7 

remark  DRILLING  INTERVAL  DATA  (Depth  and  Drill  Type) -  -  3 


remar  k 

7 

remark 

7 

remar  k 

7 

remar  k 


ACCEPT  ’  Enter  Selection  to  continue 

* 

it  continue  =  '  1  1 

store  BORMAIN  INDEX  BORMAINI  ‘  to  BFILE 
DO  BORINPM 
1  oop 
endit 
* 

if  continue  =  '2' 

store  ' BORFEA  INDEX  BORFEAI  '  to  BFILE 
STORE  'BORFEA'  TO  BLAST 
store  '  BORFEASN  '  to  BSCREEN 
store  BORFEAPT'  TO  BORPRNT 
DO  BORENTRM 
loop 
endit 

t 

if  continue  =  '3' 

store  ' BORSEG  INDEX  BORSEGI  '  TO  BFILE 
STORE  BORSEG'  TO  BLAST 
store  ' BORSEGSN '  to  BSCREEN 
store  ' BORSEGPT '  TO  BORPRNT 
DO  BORENTRM 
1  oop 
endit 
* 

if  continue  =  '4' 

store  ' BORSPT  INDEX  BQRSPTI'  TO  BFILE 
STORE  'BORSPT'  TO  BLAST 
store  ' BORSPTSN  ’  TO  BSCREEN 
store  ’ BORSPTPT ’  TO  BORPRNT 


SPLIT  SPOON  TEST  DATA  (Blow  Counts) - - 4 

FIELD  OR  LAB  TEST  SUMMARY  (Type,  No.,  &  Loc.  Results)-  -  5 

TEST  RESULTS - 6 

RETURN  TO  PREVIOUS  MENU - - - 


BORINPM.PRG 


i 


P"p 


adding,  reviewing,  or  editing  boring  information. 


* 

»  for  use  with  bormain.dbf 

save  to  memvar 

erase 

store  0  to  recno 
USE  BORMA I N 
GO  BOTTOM 
store  #  to  lastno 
store  '9'  to  action 
DO  BORMPRN T 
USE  &BFILE 

DO  WHILE  '(action)  <>  Q 
* 

*  for  entering  new  data 
if  !  ( act i on )  =  1 

do  BORCHECK 
if  nun  =  -1 

store  1  to  borsidm 
el  se 

store  borsidm  +  1  to  borsidm 
end l  f 

append  blank 

replace  BORID  with  bornum 
replace  SID  with  borsidm 
DO  BORMSCRN 
store  #  to  recno 
copy  to  BORTMP  NEXT  1 
USE  BORSID 

SET  INDEX  TO  BORS I DN , BORS I D I , BORS I DL , BORS I  DP 
append  from  BORTMP 
use  &BFILE 
go  recno 

store  '9'  to  action 
end  i  f 

«  for  editing  of  boring  just  entered  or  last  one  entered 
if  ! ( ac t i on )  =  2 ' 

if  recno  =  0 
go  lastno 
store  #  to  recno 
el  se 

go  recno 
end  i  f 

store  borid  to  bornum 

proj:name  to  projm 
sitemame  to  site* 
projidesc  to  descm 
top:hole  to  topelm 
loc:ns  to  iocnsm 
loc:ew  to  locewm 
date  to  datem 
depth  to  depthm 
DO  BORMSCRN 
STORE  «  TO  RECNO 

if  bond  <>  bornum  .or.  projsname  <>  projm  .or.  site:name  <  >  sitem; 

•or.  projidesc  <>  descm  .or.  L0C:NS  <>  LOCNSM  .OR.  L0C:EW  <>  LOCEWM; 


store 
store 
store 
si  ore 
store 
store 
store 
stor  e 


E8 


k  -  .■ 


- .  •-  ' 


-  •  JVLsVv  m  h'r.*r, ,  m*v 


.or.  date  <>  date®  .or.  top:hole  <>  topelm  .or.  depth  <>  depthra 
copy  to  bortmp  next  1 
USE  BORSID 

SET  INDEX  TO  BORS I DN , BORS I D I , BORS I DL , BORS I  DP 

UPDA  FROM  BORTMP  ON  SID  REPL  BOR  I D , PRO J : NAME , S I TE : NAME , PRO J : DESC 
LOG :  NS,  LOC-.EW,  DATE,  TOP -.HOLE,  DEPTH  RANDOM 
use  &BFILE 
go  recno 
endi  f 

store  9'  to  action 
end i  f 

«  Tor  review  of  another  record 
if  I  ( ac  1 1  on )  =  '  3  " 
do  B0RF1ND 
if  action  =  Q 
1  oop 
el  se 

f  )  fi d  ibornu* 

do  while  borid  =  bornum  .and.  .not.  eof 
if  si d  r  bor  si  dm 
store  #  to  recno 
STORE  NONE'  TO  BORNUM 
LOOP 
el  se 
skip 
end  i  f 
enddo 
end  l  f 
ERASE 
GO  RECNO 
do  bormprnt 
STORE  ‘9*  TO  ACTION 
1  oop 
endi  f 

*  for  moving  ahead  one  record 
if  ! (action )  =  * 4 ' 

skip  +1 

store  #  to  recno 
ERASE 

do  bormprnt 
STORE  '9'  TO  ACTION 
1  oop 
end i  f 

*  for  moving  back:  one  record 
if  '(action)  =  ’ 5 ' 

skip  - 1 

store  #  to  recno 
ERASE 

do  bormprnt 
STORE  '9'  TO  ACTION 
1  oop 
endi  f 

*  to  print  a  record 
if  ! 1  act i on )  =  '  b' 

if  recno  =  0 


go  1  a  s  t n  o 
store  #  to  recno 
else 

go  recno 
endi  f 

DO  BORMPRNT 
ERASE 

STORE  '9  TO  ACTION 
DO  BORMPRNT 
end  1  f 

*  to  exit  to  previous  menu 
it  ! (action)  =  '7 

store  0  to  act l on 
1  oop 
endi  f 

* 

it  !  (action)  =  '  9  ' 

@  18,3  SAY  ‘ - 

endi  t 

* 

remark  TO  ENTER  NEW  BORINGS,  OR:  REVIEW,  EDIT,  OR  PRINT  EXISTING  DATA 

remark  1  =  enter  data  for  new  boring,  2  =  edit  boring  shown  above, 

remark  3  =  review  or  edit  another  boring,  4  =  skip  ahead  one  boring 

remark  5  =  skip  back  one  boring,  6  =  print  a  boring,  7  =  exit 

* 

accept  '  Enter  action  number'  to  action 

* 

enddo 

release  all 

r est or e  f  r om  memvar 

return 


*  PRINTING  FORMA!  FOR  BORING  INFORMATION  DATA  ENTRY,  BORMPRNT .  F'RG 
IF  1 (ACTION)  =  -6' 

STORE  3  TO  LN 
SET  FORMAT  TO  PRINT 
ELSE 

STORE  0  TO  LN 
SET  FORMAT  TO  SCREEN 
END  I F 

IF  ACTION  =  .AND.  RECNO  =  0 

A  LN , 6  SAY  ’COPY  OF  BORING  INFORMATION  FOR  LAST  BORING  ENTERED 
ELSE 

@  LN , 6  SAY  'COPY  OF  BORING  INFORMATION  FOR  SELECTED  BORING 
END  IF 

IF  1 (ACTION!  =  ' 6 ' 

STORE  5  TO  LN 
END  IF 

STORE  LN+ !  TO  LN 
A  LN , 1 5  say  'Hole  No . : ' 

9  LN,25  SAY  bond 

0  LN , 42  say  'Hole  ID:' 

9  LN , 5 1  SAY  si d 

9  LN,6G  say  Class:' 

9  L N , 6 7  SAY  class 
STORE  LN+1  TO  LN 
9  LN , 3  say  Remarks:  " 

@  L N , 12  SAY  remarks 

9  LN , 54  say  ' Author :  ' 

9  LN,62  SAY  author 

STORE  LN+2  TO  LN 
A  LN,3  say  Project  Name: 

9  LN , 1 7  SAY  proj:name 
STGRE  LN+1  TO  LN 
A  LN,3  say  Site  Name: 

A  LN , 1 4  SAY  s i t e : r a m e 
STORE  LN+1  TO  LN 

9  L  N , 3  say  Project  Description:' 

9  L  N , 2  4  SHY  p  r o  j : d  e  s  c 
STORE  LN+2  TO  LN 
a  L  N ,3  s  a  v  Latitude:' 
a  LN, 1 3  Say  1  at 
9  L N , 2 5  say  'Longitude:' 

A  LN.36  SAY  lorg 
a  LN , 50  say  '  Acc ur : 

A  lN,57  SAY  accur 
A  L  N , 6 4  say  'Ref: 

9  LN.69  SAY  ref 
STORE  LN+1  1 0  LN 
9  LN,3  sav  Loc  NS: 

A  L  N  ,  1 1  -AY  1  o  c  :  n  s 
A  LN , 25  say  ' Loc  EN: 

A  LN , 33  SA  {  1 oc : ew 
a  LN,47  say  Accur: 

9  LN,54  SAy  loc:accur 
9  LN , 65  say  Ref : 

9  LN,70  Say  loc: ref 


STORE  LN+1  TO  LN 
9  LN , 3  say  Date:  ' 

@  LN , 9  SAY  date 
6  LN , 2 1  say  'Driller: 

@  LN , 30  SAY  driller 
@  LN,52  say  'Inspector:' 

G  LN,63  SAY  insp 
STORE  LN  +  2  TO  LN 
®  LN,3  say  'Loc  Bor  Log:  ’ 

@  LN, 16  SAY  1 oc : bl og 
@  LN.30  say  ‘Loc  Drill  Log:’ 

6  LN , 45  SAY  locidlog 
STORE  LN+1  TO  LN 
@  LN ,  3  say  ’Loc  Samples:' 

G  LN , 1 6  SAY  1 oc : sam 
@  LN,45  say  'Data  Status:  ' 

@  LN , 58  SAY  data: stat 
STORE  LN+1  TO  LN 
@  LN , 3  say  ' Purpose:  ' 

%  LN,12  SAY  purpose 
STORE  LN+2  TO  LN 
@  LN,3  say  'Top  of  Hole  Elev:' 

#  LN , 2 1  SAY  top: hole 
@  LN,35  say  'Elev  Accur:  ’ 

%  LN , 47  SAY  el:accur 
@  LN , 58  say  '  Depth :  ' 

@  LN , 65  SAY  depth 
STORE  LN+1  TO  LN 
@  LN,3  say  'Days  to  Drill  Hole: 
@  LN , 23  SAY  days : dr i 1 

t 

IF  1 (ACTION)  =  '6' 

%  LN+1, 3  SAY  '  ' 

eject 

SET  FORMAT  TO  SCREEN 
EN01F 
return 


r®  rs>  r»  ii>  r®  r®  ra?  ra»  ra>  ^  ra«  i'Sj  j'Sj  rs*  ra>  rs»  ra>  i'Sj  rs>  fS*  ra»  rs»  r®  rs>  raj  rs*  re*  rs» 


♦  SCREEN  FORMAT  FuR  BORING  INFORMATION  DATA  ENTRY,  B0RM5CRN . PRG 
SET  FORMAT  TO  SCREEN 
set  SCREEN  on 
ERASE 

IF  1  (ACTION)  =  '  1  ' 

@  0,26  SAY  DATA  ENTRY  FOR:  NEW  BORING' 

ELSE 

§  0,26  SAY  'FOR  EDITING  OF  BORING  INFORMATION' 

END  I  F 

@  1,2  SAY  Use  arrow  leys  to  move  around  form,  or  CTRL  E  =  up, 

2.3  say  ‘CTRL  S  =  2  e  -f  t ,  CTRL  D  =  right,  RETURN  to  skip  down, 

3.3  say  '  and  CTRL  C  to  skip  out  of  the  form  and  end. 

5,15  say  'Hole  No.  get  bond 
5,40  say  Hole  ID: 

5,49  SAY  SID 

5.60  say  'Class'  get  class 

6.3  say  'Remarks'  get  remarks 
6,54  say  'Author'  get  author 

7.3  say  'Project  Name'  get  praj:name 

8.3  say  'Site  Name'  get  si t e : name 

9.3  say  'Project  Description'  get  proj:desc 

10.3  say  'Latitude'  get  lat 

10.25  say  'Longitude'  get  long 
10,50  say  'Accur'  get  accur 

1 0 . 60  say  '  Ref  '  get  ref 

11.3  say  Loc  NS  get  loc:ns 

11.25  say  'Loc  EW  get  loc:ew 
11,47  say  Accur  get  1 oc : accur 
11,64  say  Ref'  get  loc:ref 

12.3  say  Date'  get  date 
12,21  say  'Driller'  get  driller 
12,52  say  ‘Inspector  get  insp 

13.3  say  Loc  Bor  Log'  qet  lonblog 
13,30  say  Loc  Drill  Log  get  lcc:dlog 

14.3  say  Loc  Samples'  get  loc:sam 
14,45  say  Data  Status'  get  data:stat 

15.3  say  'Purpose'  get  purpose 

16.3  say  Top  of  Hole  Elev  get  top:hole 
@  16,35  say  'Elev  Accur  qet  el:accur 

@  16,60  say  'Depth'  get  depth 
@  17,3  say  'Days  to  Drill  Hole'  get  days : dr  i  1 


CTRL 


* 

READ 

return 


*  CHECKS  FOR  DUPLICATE  BORINS  NUMBERS  AND  LISTS  FROM  BORSIDI  BORCHECK. F'RG 

*  FILE  IS  BORCHECK. PRG 

* 

erase 

set  exact  on 
store  'A  to  ans 
store  '  N  '  to  again 

* 

DO  WHILE  AGAIN  <>  'S' 

* 

accept  Enter  Boring  Number  to  bornum 

store  1 (bornum)  to  bornum 

* 

store  0  to  num 
use  BORSID  INDEX  BORSIDN 
go  bottom 
if  #  =  0 
store  -1  to  num 
STORE  S'  TO  AGAIN 
LOOP 
endi  f 

if  »  <>  0 

store  sid  to  torsidm 
use  borsid  index  borsidi 
find  {.bornum 

do  while  bond  =  bornum  .and.  .not.  eof 
store  num  +  1  to  num 
skip 
enddo 
end i  f 

« 

IF  num  >  =  1 

@  3,3  say  No.  of  duplicate  boring  numbers  =' 

8  3,37  say  num 

accept  Do  you  need  project  info,  for  duplicate  borings?  Enter  Y  or  N  'to  ans 
store  f (ans)  to  ans 

DO  WHILE  ans  < >  'N'  .AND.  ans  <>  *Y* 

accept  '  Invalid  answer,  enter  Y  or  N'  to  ans 
store  ! (ans)  to  ans 
ENDDO 
ENDIF 

» 

ERASE 

* 

l f  ans  =  '  Y  ' 

GO  TOP 

FIND  {.BORNUM 
store  3  to  lno 

do  while  BORID  =  BORNUM  .and.  .not.  eof 
8  lno, 3  say  'Boring  No:'  get  BORID 
8  lno+1,3  say  'Project  '  get  PROJsNAME 
t  lno+2,3  say  'Site  *  get  SITEsNAME 
8  lno+3,3  say  Project  Description  '  get  PROJsDESC 
8  lno+4,3  say  Boring  ID'  get  SID 
store  lno+6  to  lno 


if  1 n o  > 
remar  k 
wait 
erase 


20  .and.  borid  =  born  urn 

Press  any  key  to  continue. 


store  2  to  lno 
end  l  f 
enddo 

accept  '  Do  you  want  to  reenter  boring  number?  Enter  Y 
store  ! (again)  to  again 
do  while  again  <  >  '  N '  .AND.  again  <  >  '  Y  ' 

accept  '  Invalid  answer,  enter  Y  or  N  '  to  again 
store  '(again) to  again 
enddo 


'  to  again 


END  IF 


if  a g a i n 

r 

■  y  • 

STORE 

N 

TO  ans 

STORE 

N  ’ 

TO  again 

ERASE 

1  oop 

end  i  f 

IF  NUM  =  0 
STORE  N' 
store  ' S 
END  IF 
ENDDO 

set  enact  off 

♦ 

USE  DEFILE 

* 

return 


OR.  again 
TO  ANS 
to  again 


*  looks  -for  entered  boring  number  BQRFIND.PRG 

*  USED  ONLY  10  FIND  EXISTING  BORING  NUMBER 
erase 

SET  EXACT  ON 
STORE  T  10  again 
SET  FORMAT  TO  SCREEN 
SET  SCREEN  ON 

* 

do  while  again  <  >  S' 

# 

accept  '  Enter  Boring  Number  to  born urn 

STORE  ! < BORNUM)  TO  BGRNUM 
* 

use  BORSID  INDEX  BORSIDI 
FIND  ?< BORNUM 
STORE  0  TO  NUM 

DO  WHILE  BOR  I D  =  BORNUM  .and.  .not.  eof 
STORE  NUM  +  1  TO  NUM 
SKIP 
ENDDQ 
* 

I F  n  um  >  1 
erase 

<2  1,3  say  No.  of  duplicate  boring  numbers  =' 

@  1,37  say  n  u  m 
FIND  S-BORNUM 

REMARK  NOTE  BORING  ID  WHEN  YOU  SEE  THE  ONE  YOU  WANT, 

store  3  to  1  no 
STORE  ' 1'  TO  A 

DO  WHILE  BOR  I D  =  BORNUM  .and.  .not.  eof 
@  lno,3  say  Boring  No:'  qet  BORID 
@  lno+1,3  say  Project  '  get  projsname 
@  lno+2,3  say  Site  '  get  sitername 
@  In o+3 , 3  say  'Project  Description  '  get  projsdesc 
@  1 no+4 , 3  say  Boring  ID'  get  sid 
STORE  SID  TO  S I DM&ft 
STORE  A  +  ' 1  TO  A 
store  In o+6  to  Ino 
SKIP 

if  Ino  >  20  .AND.  BORID  =  BORNUM 
REMARK  Press  any  key  to  continue 

WAIT 
erase 

store  2  to  Ino 
e  n  d  l  f 

ENDDO 

store  ' B  to  valid 
DO  WHILE  valid  -  .  A 

INPUT  '  Enter  the  boring  ID  for  the  boring  you  want.  to  borsidm 

STORE  0  TO  GOOD 
STORE  1  TO  TRY 
STORE  1  TO  A 

DO  WHILE  TRY  <=  NUM 
IF  BORSIDM  =  S I DM& A 
STORE  1  TO  GOOD 


LSE 

STORE  A  +  '  1  '  TO  A 
ENDIF 

STORE  TRY  +  1  TO  TRY 
ENDDO 

IF  GOOD  =  0 

REMARK  ERROR  IN  YOUR  ID  ENTRY,  PLEASE  TRY  AGAIN 
LOOP 
ENDIF 

USE  60RSID  INDEX  BORSIDN 
store  str (bor si  dm , 5 , 0)  to  borsidc 
find  '!<borsidc' 
if  «  =  0 

remark  Error  in  your  entry,  please  reenter  valid  boring  ID 
1  oop 
else 

store  A  to  valid 
endi  f 
ENDDO 

store  top:hole  to  topelm 
store  proj:name  to.proje 
store  site:name  to  sitee 
store  S'  to  again 
RELEASE  LNO 
ENDIF 


if  nun  = 
erase 
remark 


CANNOT  LOCATE  YOUR  BORING  NUMBER. 


accept  '  Enter  C  to  continue  or  S  to  stop' 

store  !  (again)  to  again 
if  again  =  'C' 
loop 
el  se 

store  'Q'  to  action 
endi  f 

endi  f 

IF  NUM  =  1 
find  Ibornua 
STORE  SID  TO  BORSIDM 
STORE  STR (BORSIDM, 5,0)  TO  BORSIDC 
STORE  TOPi HOLE  TO  TOPELM 
store  proj:naae  to  proj* 
store  siteiname  to  sites 
STORE  S'  TO  A6AIN 
ENDIF 

ENDDO 

SET  EXACT  OFF 

* 

RELEASE  VALID 

RELEASE  A 

RELEASE  GOOD 

RELEASE  TRY 

RELEASE  ALL  LIKE  SIDM? 

USE  fcBFILE 

« 

r  eturn 


to  again 


*  ENTRY  OR  EDIT  OF  BORING  DATA  (all  files,  except  bormain. dbf >  BQRENTRM. 
SAVE  TO  MEMVAR 

set  format  to  screen 
erase 

store  0  to  rec no 
store  ' Y  to  a n s 
store  '9  to  sc 1 1  on 
USE  &BLAST 
GO  BOTT 

STORE  #  TO  LASTNO 
DO  B OR P RN T 
USE  & B F I L E 

do  while  action  <  >  G 

*  for  new  data 

if  1  action'  =  1 ' 

do  BORFIND 
if  action  =  Q 
store  '  G  to  action 
1  OOP 
e  l  se 

append  blank 

replace  B  0  R I D  with  b  o  r  n  u  m 
replace  SID  with  borsidm 
STORE  *  TO  RECNO 
STORE  S T R i S 1 D , 5 , 0 )  TO  BORSIDC 
USE  BORSID  INDEX  BORSIDN 
FIND  'SBORSIDC' 

STORE  TOPiHOLE  TO  TOF'ELM 
USE  ?'BF  I  LE 
GO  RECNO 

do  ?-BSCREEN 
STORE  #  TO  RECNO 
@  17,3 

DO  WHILE  ans  =  ’  V" 

accept  '  Enter  more  of  same  data  for  same  hole  no. ,  Y  or  N  ?  to 

store  Mans)  to  ans 
l  f  a  n  s  =  Y  ' 
append  blank 

replace  bond  with  bornum 
replace  sid  with  borsidm 
STORE  «  TO  RECNO 
STORE  STR ( SI D , 5 , 0)  TO  BORSIDC 
USE  BORSID  INDEX  BORSIDN 
FIND  '  S<BORS  I  DC  ' 

STORE  TOPiHOLE  TO  TOF’ELM 
USE  ?vBFILE 
GO  RECNO 
DO  &B3CREEN 
STORE  «  10  RECNO 
@  17,3 

1  oop 
e  1  se 

store  N  to  ans 
end l  f 
ENDDO 


E  1 8 


PRG 


ans 


store  '9  to  action 
end  1  f 

*  -for  editing  of  data  just  entered 
if  '(action)  =  ‘ 2 

if  recno  =  0 
USE  OBLAST 
go  bottom 
STORE  #  TO  RECNO 
USE  StBFILE 
GO  RECNO 
el  se 

go  recno 
end  i  f 

STORE  S T R ( S 1 D , 5 , 0 )  TO  BORSIDC 
USE  B0RS1D  INDEX  BORSIDN 
FIND  ' &B0RS I  DC ' 

STORE  TOP:  HOLE  TO  TOF'ELM 
USE  &BFILE 
GO  RECNO 
DO  &BSCREEN 
store  '9  to  action 
e  n  d  i  f 

*  for  finding  another  record  in  same  file 
if  '(action)  =  ' 3  ' 

do  BORFIND 

if  action  =  Q 

store  'G'  to  action 
1  oop 
e  n  d  l  f 

if  BFILE  =  BORRSL  INDEX  BORRSL !  ' 
find  '  ?(borsidc 
store  #  to  recno 
el  se 

find  ?<  b  o  r  n  u  m 

DO  WHILE  BOR  ID  -•  BORNUM  .AND.  .NOT.  EOF 
IF  SID  =  BOR'S  I  Dll 
store  #  to  recno 
STORE  NONE  TO  BORNUM 
LOOP 
ELSE 
SLIP 
END  IF 
ENDBO 
end  l  f 
ERASE 

IF  RECNO  =  0 

SET  FORMAT  TO  SCREEN 

@  1,5  SAV  NO  DATA  FOR  THIS  BORING,  THIS  IS  THE  LAST  RECORD 
STORE  LAST N 0  TO  RECNO 
END  IF 
GO  RECNO 
DO  ?>BOPPRNT 
STORE  '9'  TO  ACTION 


*  skip  ahead  one  record 
if  ! ( ac t i on )  =  '  4  ' 

skip  +1 

store  #  to  recno 
ERASE 

DO  &B0RPRNT 
STORE  '9'  TO  ACTION 
1  oop 
end  i  f 

*  skip  back  one  record 
if  ! (action)  =  ' 5 ' 

skip  - 1 

store  #  to  recno 
ERASE 

DO  &BQRPRNT 
STORE  '9'  TO  ACTION 
I  oop 
endi  f 

*  to  print  a  record 
it  ((action)  =  ' 6 ' 

it  recno  =  0 
GO  LASTNO 
store  #  to  recno 
else 

go  recno 
endi  f 

do  J.B0RPRNT 

store  '9'  to  action 

erase 

DO  &B0RPRNT 
1  oop 
endi  f 

*  exit  to  previous  menu 
it  ! ( ac  1 1 on )  =  ' 7 ' 

store  'G'  to  action 
1  oop 
endi  f 

*  display  submenu 
i  f  !  (act  i  on  )  =  '9 

@  17,3  say  - 

DO  CASE 


case  continue  = 


@  18,3  say  TO 

ENTER, 

REVIEW, 

EDIT, 

OR 

PRINT 

SOIL 

&  ROCK  LAYER 

DATA 

case  continue  = 

'3' 

§  18,3  say  TO 

ENTER, 

REVIEW, 

EDIT, 

OR 

PRINT 

DRILLING  INTERVAL 

DATA 

case  continue  = 

'4' 

§  18,3  say  TO 

ENTER, 

REVIEW, 

EDIT, 

OR 

PRINT 

SPLIT 

SPOON  TEST 

DATA 

case  continue  - 

'  5  ' 

8  18,3  say  TO 

ENTER, 

REVIEW, 

EDIT, 

OR 

PRINT 

TEST 

SUMMARY  INFO 

case  continue  = 

'6' 

«  18,3  say  TO 

ENTER, 

REVIEW, 

EDIT, 

OR 

PRINT 

TEST 

RESULTS' 

ENDCASE 

@  19,5  SAY  1  =  enter  new  data,  2  =  edit  record  shown  above 
@  20,5  say  '3  =  review  or  edit  data  tor  a  different  boring  number, 


@  21,5  say  '4  =  skip  ahead  one  record,  5  =  skip  back  one  record 
@  22,5  say  '6  =  print  a  record,  7  =  exit  back  to  previous  menu. 

* 

accept  '  ENTER  ACTION  NUMBER  to  action 

* 

end i  f 
* 

ENDDO 

* 

RELEASE  ALL 
RESTORE  FROM  MEMVAR 
return 


DESCR .  RECORD' 


*  PRINT  FORMAT  FOR  FEATURE  DATA,  BQRFEAPT . PRG 

IF  ACTION  =  '6' 

SET  FORMAT  TO  PRINT 
ELSE 

SET  FORMAT  TO  SCREEN 
ENDIF 
DO  CASE 

CASE  RECNO  =  0 

0  3,6  SAY  'LAST  SOIL  OR  ROCK  LAYER  CLASS.  &  DESCR.  RECORD  ENTERED 
CASE  ACTION  =  '3' 

0  3,6  SAY  'FIRST  SOIL  OR  ROCK  LAYER  CLASS.  &  DESCR.  FOR  SELECTED  BORING 
CASE  RECNO  <>  0 

0  3,6  SAY  'COPY  OF  SELECTED  SOIL  OR  ROCK  LAYER  CLASS.  &  DESCR.  REC 
ENDCASE 

0  5,15  say  'Hole  No. : ' 

0  5,25  SAY  borid 

0  5,40  say  'Hole  ID: 1 

0  5,49  SAY  sid 

0  7,3  say  Depth  to  top  of  strata:' 

0  7,27  SAY  tea: depth 
0  7,40  say  'Elev  at  top  of  strata:' 

0  7,63  SAY  feat:elev 

0  9,3  say  'Soil  classification  or  rock  name:' 

0  9,37  SAY  feat:narae 
0  9,50  say  '  Date:  ' 

0  9,56  SAY  f eat : date 
0  11,3  say  Description  of  strata:' 

0  11,26  SAY  feat: desc 
0  12,3  say  '  ' 


IF  ACTION 
eject 
ENDIF 
return 


*  SCREEN  FORMAT  FOR  FEATURE  DATA,  BQRFEASN. PRG 
ERASE 

SET  FORMAT  TO  SCREEN 
set  SCREEN  on 

8  1,6  SAY  ‘DATA  ENTRY  FOR  SOIL  OR  ROCK  LAYER  CLASS.  &  DESCRIPTION' 

8  2,2  SAY  Use  arrow  keys  to  move  around  Torm,  or  CTRL  E  =  up,  CTRL  X  =  down' 

8  3,3  say  CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  oT 

Ca  4,3  say  the  Torm,  and  CTRL  C  to  skip  out  oT  the  Torm  and  end.' 

8  6,5  SAY  NOTE:  Repeat  this  Torm  as  needed;  enter  depth  noted  on  log  sheet' 

8  7,12  say  '  or  approx,  aepth  where  entry  shown.  Use  next  0.01  Tt  Tor  depth' 
§  8,12  say  '  to  continue  a  long  description.’ 

8  10,15  say  'Hole  No . : ' 

8  10,25  say  bond 

8  10,45  say  'Hole  ID:  ' 

8  10,54  say  s i d 

IF  ACTION  =  '2 
STORE  FEA: DEPTH  TO  BDEPTH 
END  I F 

0  12,3  say  Depth  to  top  oT  strata'  get  Teasdepth 
read 

IF  ACTION  =  T 

repl  Teatielev  with  topelm  -  Tea:depth 
ENDIF 

* 

IF  ACTION  =  ’  2  ' 

IF  Tea:depth  <>  bdepth 
repl  Teat:elev  with  topelm  -  Tea: depth 
ENDIF 
ENDIF 

8  12,45  sav  'Elev  at  top  oT  strata:' 

8  12,68  say  Teat:elev 

8  14,2  say  Soil  c 1 assi T i cat i on  or  rock  name'  get  Teatiname 
8  14,4?  say  Date,  IT  appropriate'  get  feat:date 
8  16,3  say  Description  oT  strata'  get  Teatidesc 
* 

read 

REPL  FEAT: ELEV  WITH  TOPELM  -  FEA: DEPTH 
r etur n 


*  PRINT  FORMAT  FOR  BORING  SEGMENT  DATA,  BORSEGPT . PRG 
IF  ACTION  =  '6' 

SET  FORMAT  TO  PRINT 
ELSE 

SFT  FORMAT  TO  SCREEN 
END  I F 
DO  CASE 

CASE  RECNO  =  0 

@  3,6  SAV  'LAST  DRILLING  INTERVAL  DATA  RECORD  ENTERED' 

CASE  ACTION  =  '3' 

@  3,6  SAV  'FIRST  DRILLING  INTERVAL  DATA  RECORD  FOR  SELECTED  BORING 
CASE  RECNO  <>  0 

A  3,6  SAY  COPY  OF  SELECTED  DRILLING  INTERVAL  DATA  RECORD' 

ENDCA5E 

!2  5,15  say  Hole  No.:' 

@  5,25  SAY  bond 

@  5,40  say  'Hole  ID:' 

@  5,49  SAY  si d 

@  7,3  say  Depth  to  top  ot  interval:' 

@  7,29  SAY  bondepth 
S  7,43  say  'Elev  at  top  o-f  interval:' 

@  7,68  SAY  borselev 
@  9,3  say  Type  of  drilling  or  bit:' 

@  9,28  SAY  bor:tool 
@  9,50  say  Si  z e  o-f  hoi  e :  ' 

@  9,64  SAY  bonsize 
@  10,3  say 

♦ 

IF  ACTION  =  6 

eject 

END  I F 

return 


*  SCREEN  FORMAT  FOR  BORING  SEGMENT  DATA,  BORSEGSN.  F'RG 
ERASE 

SET  FORMAT  TO  SCREEN 
set  SCREEN  on 

§  1,6  SAY  'DATA  ENTRY  FOR  DRILLING  INTERVAL  DATA' 

@  2,2  SAY  'Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X  =  down' 
@  3,3  say  'CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of 
@  4,3  say  '  the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end.' 

@  6,15  say  'Hole  No . :  ' 

@  6,25  say  bond 
@  6,45  say  'Hole  ID:' 

@  6,54  say  sid 
IF  ACTION  =  '2' 

STORE  BOR : DEPTH  TO  BDEPTH 
END  I F 

@  8,3  say  Depth  to  top  of  interval’  get  boridepth 
READ 

IF  ACTION  =  '  1  ' 

repl  bor:elev  with  topelm  -  boridepth 
ENDIF 

* 

IF  ACTION  =  '2 
IF  BOR : DEPTH  <>  BDEPTH 
REPL  BOR: ELEV  WITH  TOPELM  -  BOR: DEPTH 
ENDIF 
ENDIF 

@  8,43  say  'Elev  at  top  of  interval:' 

@  8,68  say  bor:elev 

@  10,3  say  'Type  of  drilling  or  bit'  get  bor:tool 
@  10,50  say  'Size  of  hole'  get  borssize 
* 

read 

REPL  BOR: ELEV  WITkf  TOPELM  -  BOR: DEPTH 
return 


*  PRINT  FORMAT  FOR  BLOW  COUNT  DATA,  BuRSPTPT . PR6 
IF  ACTION  ' 6 ‘ 

SET  FORMAT  TO  PRINT 
ELSE 

SET  FORMAT  TO  SCREEN 
END  I F 
DO  CASE 

CASE  RECNO  =  0 

@  3,6  SAY  'LAST  BLOW  COUNT  RECORD  ENTERED 
CASE  ACTION  =  '3' 

0  3,6  SAY  FIRST  BLOW  COUNT  RECORD  FOR  SELECTED  BORING 
CASE  RECNO  <  0 

@  3,6  SAv  COPY  OF  SELECTED  BLOW  COUNT  RECORD' 

ENDCASE 

0  5,15  say  'Hole  No .  : 

e  5,25  SAY  bond 

0  5,45  say  'Hole  ID:' 

0  5,54  SAY  si d 

@  7,3  say  'Depth  tor  blow  count: 

0  7,25  SAY  bio: depth 
0  7,43  say  Elev  of  blow  count:' 

0  7,63  SAY  blow: elev 
0  9,3  say  'Blow  count,  N  value:' 

0  9,24  SAY  b 1 ow : c t 5 
S  11,3  say  'Remarks  for  blow  count:' 

0  11,27  SAY  blow.rmks 
@  12,3  say 

* 

IF  ACTION  =  '  6  ' 

eject 

END  I F 

return 


*  SCREEN  FORMAT  FOR  BLOW  COUNT  DATA,  BORSPTSN.  F'RG 
ERASE 

SET  FORMAT  TO  SCREEN 
set  SCREEN  on 

@  1,6  SAY  DATA  ENTRY  FOR  BLOW  COUNT  DATA' 

@  2,2  SAY  'Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X  =  down' 

@  3,3  say  'CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show  rest  of' 
@  4,3  say  '  the  form,  and  CTRL  C  to  skip  out  of  the  form  and  end.' 

@6,15  say  'Hole  No.  :  ' 

@  6,25  say  bond 
@  6,45  say  'Hole  ID:' 

@  6,54  say  sid 
IF  ACTION  =  2 ' 

STORE  BLO: DEPTH  TO  BDEPTH 
END  I F 

@  0,3  say  Depth  for  blow  count'  get  blo:depth 
READ 

IF  ACTION  =  '  T 

repl  blowrelev  with  topelm  -  bloidepth 
ENDIF 

t 

IF  ACTION  =  '2' 

IF  BLO: DEPTH  O  BDEPTH 

REPL  BLOW: ELEV  WITH  TOPELM  -  BLO: DEPTH 
ENDIF 
ENDIF 

@  8,43  say  'Elev  of  blow  count:' 

@  8,63  say  blowielev 

@  10,3  say  'Blow  count,  N  value'  get  blowicts 
@  12,3  say  'Remarks  for  blow  count'  get  blow:rmks 

# 

read 

REPL  BLOW : ELEV  WITH  TOPELM  -  BLO: DEPTH 
return 


*  PRINT  FORMAT  FOR  FIELD  OR  LAB  TEST  SUMMARY,  BORTSTPT. PRG 
IF  ACTION  =  6' 

SET  FORMAT  TO  PRINT 
ELSE 

SET  FORMAT  TO  SCREEN 
END  IF 
DO  CASE 

CASE  RECNO  =  0 

(i I  3,6  SAY  LAST  FIELD  OR  LAB  TEST  SUMMARY  RECORD  ENTERED' 

CASE  ACTION  =  '3' 

8  3,6  SAY  'FIRST  FIELD  OR  LAB  TEST  SUMMARY  RECORD  FOR  SELECTED  BORING 
CASE  RECNO  <>  0 

8  3,6  SAY  'COPY  OF  SELECTED  FIELD  OR  LAB  TEST  SUMMARY  RECORD' 

ENDCASE 

8  5,15  say  Hole  No . :  ' 

8  5,25  SAY  bond 

8  5 , 40  say  ' Hoi e  ID:  ' 

8  5,49  SAY  si d 

8  7,3  say  'Name  oF  test: 

8  7,17  SAY  t yp : name 
8  9,3  say  Number  oF  tests:' 

8  9,20  SAY  typ : num 
8  9,30  say  Location  oF  data:' 

8  9,48  SAY  typ: loc 

8  10,3  say  ' 

t 

IF  ACTION  =  '6 
eject 
END  I F 
r eturn 


*  SCREEN  FORMAT  FOR  FIELD  OR  LAB  TEST  SUMMARY,  BQRTSTSN. PRG 
ERASE 

SET  FORMAT  TO  SCREEN 
set  SCREEN  on 

8  1,6  SAY  'DATA  ENTRY  FOR  FIELD  OR  LAB  TEST  SUMMARY' 

0  2,2  SAY  'Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up, 

0  3,3  say  'CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down, 

0  4,3  say  and  CTRL  C  to  skip  out  of  the  form  and  end. 

0  6,15  say  'Hole  No. : 

@  6,25  say  borid 

0  6,45  say  'Hole  ID:  ' 

0  6,54  say  s  1  d 

0  8,3  say  Name  of  test'  get  typ:name 
0  10,3  say  Number  of  tests'  get  typsnum 
0  12,3  say  Location  of  data'  get  typ:loc 


CTRL  X 


read 

return 


*  PRINT  FORMAT  FOR  TEST  RESULTS  DATA,  BGRRSLPT . PRO 

IF  ACTION  =  '  6  ' 

SET  FORMAT  TO  PRINT 
ELSE 

SET  FORMAT  TO  SCREEN 
ENDIF 
DO  CASE 

CASE  RECNO  =  0 

0  3,6  SAY  'LAST  TEST  RESULTS  RECORD  ENTERED 
CASE  ACTION  =  '3' 

0  3,6  SAY  'FIRST  TEST  RESULTS  RECORD  FOR  SELECTED  BORING 
CASE  RECNO  <>  0 

0  3,6  SAY  COPY  OF  SELECTED  TEST  RESULTS  RECORD' 

ENDCASE 

0  5,15  say  Hole  No .  :  ' 

0  5,25  SAY  borid 

0  5,40  say  Hole  ID:' 

0  5,49  SAY  sid 

0  7,3  SAY  '  T est  Name : 

0  7,14  SAY  test : name 
0  7,31  say  Date:  ' 

0  7,37  SAY  testsdate 
0  7,55  SAY  Material:' 

0  7,65  SAY  test:mat 
0  9,3  say  ' Depth :  ' 

0  9,10  SAY  tst : depth 
0  9,45  say  ' El evat i on :  ‘ 

0  9,55  SAY  testielev 
@  11,3  say  Result  1 :  ' 

0  11,13  SAY  test : r esl 
0  11,35  say  Result  3:  ' 

0  11,45  SAY  test : res3 
0  13,3  say  ‘ Resul t  2:  ' 

0  13,13  SAY  test : res2 
0  13,35  say  ' Resu It  4 :  ' 

0  13,45  SAY  test : r es4 
0  15,3  say  'Remarks:  ' 

0  15,12  SAY  remar ks 
0  16,3  say 

t 

IF  ACTION  =  '6' 
eject 
ENDIF 
r etur n 


*  SCREEN  FORMAT  FOR  TEST  RESULTS  DATA,  BORRSLSN. PRG 
ERASE 

SET  FORMAT  TO  SCREEN 
set  SCREEN  on 

@  1,6  SAY  'DATA  ENTRY  FOR  TEST  RESULTS' 

@  2,2  SAY  'Use  arrow  keys  to  move  around  form,  or  CTRL  E  =  up,  CTRL  X. 
@  3,3  say  'CTRL  S  =  left,  CTRL  D  =  right,  RETURN  to  skip  down  or  show 
@  4,3  say  form,  and  CTRL  C  to  skip  out  of  the  form  and  end.' 

@  6,15  say  'Hole  No . :  ’ 

@  6,25  say  bond 

@  6,45  say  'Hole  ID:' 

@  6,54  say  sid 

@  8,3  SAY  'Test  Name'  get  testiname 
9  8,31  say  Date'  get  testidate 
@  8,55  SAY  'Material'  get  testsmat 
IF  ACTION  =  ' 2 ' 

STORE  TST: DEPTH  TO  BDEPTH 
END  I F 

<2  10,3  say  Depth  get  tstidepth 
READ 

IF  ACTION  =  1 

repl  test:elev  with  topelm  -  tstidepth 
END  I F 

* 

IF  ACTION  =  '2  ' 

IF  TST: DEPTH  O  BDEPTH 
REPL  TEST: ELEV  WITH  TOPELM  -  TST: DEPTH 
END  I F 
END  IF 

<*  10,45  say  'Elevation: 
t!  10,56  say  testielev 
@  12,1  say  Result  1'  get  test:resl 
@  14,3  say  Result  2  get  test:res2 
@  12,35  say  Result  3'  get  test:res3 
@  14,35  say  Result  4'  get  test:res4 
9  16,3  say  Remarks'  get  remarks 
# 

read 

REPL  TEST : ELEV  WITH  TOPELM  -  TST: DEPTH 
return 


E3I 


=  down  ' 
rest  of 


*  c  o  in  m  a  n  d  file  to  f  i  n  d  boring  numbers  in  a  given  coordinate  area  B  0  R  L  D  C .  P  R  6 
SET  TALK  OFF 
SAVE  TO  MEMVAR 

REMARK  ENTER  TWO  SETS  OF  NS.EW  COORD.  TO  DEFINE  AREA  OF  INTEREST. 

INPUT  INPUT  FIRST  NS  COORD.  '  TO  NS  1 
INPUT  CORRESPONDING  EW  COORD.  TO  EW1 
INPUT  'INPUT  SECOND  NS  COORD.  TO  NS 2 
INPUT  CORRESPONDING  EW  COORD. '  TO  EW2 
IF  NS  1  NS 2 


STORE 

NS  1 

TO 

NSHI 

STORE 

EW  1 

TO 

EWHINS 

STORE 

N  32 

TO 

NSLO 

STORE 

EW2 

TO 

EWLONS 

ELSE 

ST  ORE 

NS  2 

TO 

NSHI 

STORE 

EW2 

TO 

EWHINS 

STORE 

NS  1 

TO 

NSLO 

STORE 

EW  1 

TO 

EWLONS 

END  IF 

RELEASE 

ALL 

LIKE  ?? 1 

RELEASE 

ALL 

LI 

KE  0_,2 

IF  EWHINS  > 

EWLONS 

STORE 

EWHIN 

1  r> 

i  C5 

TO  EWHI 

STORE  EWLONS  TO  EWLO 
ELSE 

STORE  EWLONS  TO  EWHI 
STORE  EWHINS  TO  EWLO 
END  IF 

RELEASE  EWLONS 
RELEASE  EWHINS 

STORE  3TR ( NSLO ,  10,2)  TO  NSLOC 

STORE  STR iNSHI ,10,2)  TO  NSHIC 

USE  BGRSIO  INDEX  BORSIDL 

COPY  STRU  TO  BORLOC 

SELE  PRIM 

USE  BORLOC 

SELE  SECO 

USE  BORSID  INDEX  BORSIDL 
DO  WHILE  .NOT.  EOF 

IF  LOC : NS  >=  NSLO  .AND.  LOC:NS  <=  NSHI  .AND.  LOC:EW  >=  EWLO; 
.AND.  LOC:EW  :=  EWHI 
COPY  TO  BORTMP  NEXT  1 
SELE  PRIM 

APPEND  FROM  BORTMP 
END  IF 
SELE  SECO 
SKIP 
ENDDO 

SET  FORMAT  TO  SCREEN 
ERASE 
SELE  PRIM 
GO  TOP 

store  N  '  to  ans 
DO  BORCORPT 
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ACCEPT  'DO  YOU  WANT  A  PRINTED  COPY?  ENTER  Y  OR  N'  TO  ANS 
store  1 (ans)  to  ans 
IF  ANS  =  'Y' 

SET  FORMAT  TO  PRINT 
SET  MARGIN  TO  5 
GO  TOP 
DO  BORC0RPT 
SET  PRINT  ON 
CHR  (27) 

SET  PRINT  OFF 
END  I  F 

ACCEPT  DO  VC.'  w~NT  -  -  I t  of  BORING  LOCATIONS?  ENTER  Y  OR  N'  TO  ANS 
store  'fens'  to  ^  ; 

IF  ANS  =  'V 
DO  BORMAP 
END  I  F 
CLEAR 

RESTORE  FROM  MEMVAR 
RETURN 
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*  PRINT  COPY  OF  BOR  I D  AND  COORD  ON  SCREEN  OR  PRINTER  BORCORPT . PRO 
@  2,3  SAY  'LIST  OF  BORINGS  IN  AREA  WITHIN  GIVEN  COORDINATES' 

IF  ANS  <>  ' N ‘ 

SET  PRINT  ON 
77  CHR (15) 

SET  PRINT  OFF 
END  I F 

@  3,3  SAY  'NS  COORD:  ' 

@3,13  SAY  NSlO 
@  3,30  SAY  EW  COORD:  ' 
e  3,40  SAY  EWLO 
@  4,13  SAY  NSH I 
@  4,40  SAY  EWH I 
@6,2  SAY  BORING  NO.  ‘ 

@  6,13  SAY  '  SID' 

@  6,19  SAY  '  NS  COORD.  ' 

@  6,30  SAY  '  EW  COORD.  ' 

IF  ANS  <>  N' 

@  6,55  SAY  PROJECT' 

@  6,95  SAY  SITE' 

ENDIF 

STORE  8  TO  LNO 
DO  WHILE  .NOT.  EOF 
@  LNO, 2  SAY  BORID 
@  LNO , 13  SAY  SID 
@  LNO, 19  SAY  LOC: NS 
@  LNO, 30  SAY  LOC : EW 
IF  ANS  =  'N' 

STORE  LNO+1  TO  LNO 
e  LNO, 5  SAY  ' PROJ : ' 

@  LNO, 11  SAY  PROJ : NAME 
@  LNO+1 ,5  SAY  'SITE:  ' 

@  LNO+1, 11  SAY  SITE: NAME 
STORE  LNO+2  TO  LNO 
if  lno  >=  23 
store  2  to  lno 

remark  Hit  any  key  to  continue 
wai  t 
erase 
endi  f 

ELSE 

@  LNO , 4 1  SAY  PROJ : NAME 
@  LNO, 83  SAY  SITE; NAME 
STORE  LNO+1  TO  LNO 
ENDIF 
SKIP 
ENDDO 

STORE  LNO+1  TO  LNO 
IF  ANS  <>  'Y' 

@  LNO+1, 3  SAY  '  ' 

ENDIF 

SET  FORMAT  TO  SCREEN 
RETURN 


*  create  tile  of  coordinates  tor  given  project  or  site  and  plot.  BORCORD.PRG 
SAVE  TO  MEMVAR 

STORE  T'  TO  TRY 

*  MAIN  DO  LOOP 

DO  WHILE  TRY  <>  'Z  ' 

REMARK  PLOT  OF  BORING  LOCATIONS  FOR  GIVEN  PROJECT  OR  SITE 

ACCEPT  'DO  YOU  WANT  A  PLOT  FOR  A  PROJECT  NAME  OR  SITE  NAME?  ENTER  P  OR  S '  ; 

TO  WANT 

STORE  1 (WANT)  Tu  WANT 
IF  WANT  =  P 

ACCEPT  ENTER  PROJECT  NAME'  TO  F'ROJM 
STORE  ! (PROJM)  TO  PROJM 
ELSE 

STORE  S  TO  WANT 

ACCEPT  ENTER  SITE  NAME'  TO  SITEM 
STORE  1 (SITEM)  TO  SITEM 
END  I  F 

use  b  o r  s i d 

copy  s t r y  to  b o r 1 o c 

sel e  prim 

use  borsid  index  borsidp 

sele  seco 

use  b  o  r 1 o  c 

sele  prim 

it  want  =  ' P 

locat  tor  ! * pr o j :  name )  =  projm 
el  se 

loca  ter  1 (si te: name)  =  sitem 
endi  t 

STORE  0  TO  RECOP 
do  while  . not .  eot 

copy  to  bor t mp  next  1 
sele  seco 

append  trom  bortmp 
STORE  RECOP  +  1  TO  RECOP 
se! e  prim 
cont 
e  n  d  d  o 

IF  RECOP  =  0 
IF  WANT  =  'F" 

REMARK  DID  NOT  FIND  YOUR  PROJECT,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM"1 
ELSE 

REMARK  DID  NOT  FIND  YOUR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM" 

END  IF 

ACCEPT  ENTER  Y  FOR  YES  AND  N  FOR  NO'  TO  ANS 
STORE  MANS)  TO  ANS 
IF  ANS  =  Y 
DO  BORPPOJ 
clear 

restore  t  r o m  m e  m v a r 
LOOP 
ELSE 

STORE  Z  TO  TRY 
LOOP 
END  IF 
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*  command  file  to  print  boring  location  map  BQRMAP.PRG 

*  modified  03/07/85  to  set  scales  from  400  to  2000  ft/in  for  8.5  or  14 

*  paper  and  use  A - Z ,  a-z ,  and  0-9  for  boring  location  legend, 
erase 

SAVE  TO  MEMVAR2 
RELEASE  ALL  EXCEPT  WANT 
set  screen  on 

accept  ‘DOES  YOU  PRINTER  HAVE  WIDE  PAPER?  Y  OR  N'  TO  ANS 
set  screen  off 
STORE  ! (ANS)  TO  ANS 
IF  ANS  =  ‘ Y ‘ 

STORE  12  TO  PAPER 
ELSE 

STORE  7  TO  PAPER 
ENDIF 

set  screen  on 

remarl:  This  takes  a  few  minutes,  so  hang  tight, 

set  screen  off 
USE  BORLOC 

STORE  L0C:NS  TO  NSHI 
STORE  LOC : NS  TO  NSLOW 
STORE  LOC : EW  TO  EWLOW 
STORE  LOC : EW  TO  EWHI 
DO  WHILE  .NOT.  EOF 
SKIP 

IF  EWLOWROC :  EW 

STORE  LOC : EW  TO  EWLOW 
ENDIF 

IF  EWHKLQC:  EW 
STORE  LOC : EW  TO  EWHI 
ENDIF 

IF  nslow;loc:ns 

STORE  LOC :  l3s  TO  NSLOW 
ENDIF 

IF  NSH I < LOC : NS 

STORE  LOC:NS  TO  NSHI 
ENDIF 

ENDDO 
go  top 

*  round  off  to  ne;<t  highest  or  lowest  100  ft 
store  int (nshi / 100+0. 5) *100  to  nshi 

store  i n t ( nsl ow/ 1 00-0. 5) *  100  to  nslow 
store  i n t ( ewh i / 100+0 . 5) *  1 00  to  ewhi 
store  i nt (ewl ow/ 1 00-0. 5) *  100  to  ewlow 

*  determine  scales  for  NS  and  EW 
store  nshi-nslow  to  nsmaxdif 
store  ewhi-ewlow  to  ewmaxdif 

store  l nt (nsmaxdi f /2000  +  0 . 5 ) *  1 0 0  to  nsscale 
if  ewmaxdif  >  10000 

store  int((ewmaxdif/paper)/1000  +  0.51*1000  to  ewscale 
el  se 

store  int((ewmaxdif/paper)/100  +  0 . 5 ) *100  to  ewscale 
endi  f 

if  nsscale  >  ewscale 
store  nsscale  to  scale 


store  ewscale  to  scale 
end  i  f 

*  set  up  scale  increments  -for  NS  and  EW 
store  chr (27) +"0"  '  to  LIN8 
store  chr (27) +"A"  +  chr  (6)  '  to  LIN12 
DO  CASE 

CASE  SCALE  <=  400 
store  1 i n 8  to  linsp 
store  25  to  ewinc 
store  50  to  nsinc 
STORE  400  TO  SCALE 
CASE  SCALE  >  400  .AND.  SCALE  <=  600 
store  linl2  to  linsp 
store  35  to  ewinc 
store  50  to  nsinc 
STORE  600  TO  SCALE 
CASE  SCALE  >  600  .AND.  SCALE  <=  800 
store  lin8  to  linsp 
store  45  to  ewinc 
store  100  to  nsinc 
STORE  800  TO  SCALE 

CASE  SCALE  >  600  .AND.  SCALE  <=  1000 
store  1 i n 8  to  linsp 
store  60  to  ewinc 
store  125  to  nsinc 
STORE  1000  TO  SCALE 
CASE  SCALE  >  1000  .AND.  SCALE  <=  1200 
store  1 i n 1 2  to  linsp 
store  70  to  ewinc 
store  100  to  nsinc 
STORE  1200  TO  SCALE 
CASE  SCALE  >  1200  .AND.  SCALE  <=  1500 
store  1 i n 1 2  to  linsp 
store  90  to  ewinc 
store  125  to  nsinc 
STORE  1500  TO  SCALE 
CASE  SCALE  >  1500  .AND.  SCALE  <=  1800 
store  1 i n 1 2  to  linsp 
store  105  to  ewinc 
store  150  to  nsinc 
STORE  1800  TO  SCALE 
CASE  SCALE  >  1500  .AND.  SCALE  <=  2000 
store  linB  to  linsp 
store  115  to  ewinc 
store  250  to  nsinc 
STORE  2000  TO  SCALE 
ENDCASE 

it  scale  >  2000 
set  screen  on 

reeark  SCALE  GREATER  THAN  2000  FT/IN,  CANNOT  DO  MAP  THIS  SCALE 
SET  SCREEN  OFF 
RESTORE  FROM  MEMVAR2 
CANCEL 


GO  TOP 

DO  WHILE  .NOT.  EOF 

STORE  INT (LOC:NS/NSINC)*NSINC  TO  NSEVEN 
REPLACE  LOC:NS  WITH  NSEVEN 
STORE  INT  (LQC:EW/EWINC)«ENINC  TO  EWEVEN 
REPLACE  LGC-.EW  WITH  EWEVEN 
SKIP 
ENDDO 
GO  TOP 

SORT  ON  LOC: EW  TO  SORTBOR 
USE  SORTBOR 

SORT  ON  LOC : NS  TO  BORSORT  DESCENDING 

USE  BORSORT 

DELETE  FILE  SORTBOR 

GO  TOP 

go  top 

STORE  INT ( (NSHI+ (2#NSINC) ) /NSINC+O. 5) *NSINC  TO  NSHCORD 
STORE  INT ( (NSLQW-(2*NSINC) )/NSINC-0.5)*NSINC  TO  NSLCORD 
STORE  INT ( (EWHI  +  < 2*EWINC) ) /EWINC+O.  5) *EWINC  TO  EWHCORD 
STORE  INT  (  (EWLOW-(2*EWINC) ) /EWINC-O. 5) *EWINC  TO  EWLCORD 
STORE  EWHCORD-EWLCORD  TO  EWLHDIF 
SET  MARGIN  TO  0 
SET  FORMAT  TO  PRINT 
EJECT 

SET  EJECT  OFF 

@  1,3  SAY  'PLOT  OF  BORING  LOCATIONS  FOR' 

IF  WANT  =  'S' 

@  1,32  SAY  'SITE:  ' 


@  1,38  SAY  SITErNAME 
ELSE 

@1,32  SAY  'PROJ. :  ' 


@1,32  SAY  'PROJ. : ' 

@  1,39  SAY  PROJ : NAME 
ENDIF 


@  2,5  SAY  'EAST-NEST  COORD.  (VERTICAL  ORDINATE  IS  N-S  COORD.)' 
@  2,58  SAY  'SCALE:  1  IN  =' 

@  2,72  SAY  SCALE  USING  '9999' 

@  2,77  SAY  'FT' 

@  3,0  SAY  '  ' 

*  set  up  printer  to  form  length  of  22  in.  and  seal 
set  print  on 

??  chr(27)+"C"+chr(0)+chr<22) 
set  print  off 

if  scale  =  400  .and.  ewhcord-ewlcord  <=  2800  .and 
. or .  (ewhcord-ewlcord  <=  4800  .and.  paper  =  12) 

SET  PRINT  ON 


and  scale  for  paper  width 


paper 


??  iLINSP 
SET  PRINT  OFF 
else 

SET  PRINT  ON 
??  &L  I NSP 
->?  CHR  (15) 

SET  PRINT  OFF 
endi  f 

STORE  NSHCORD  TO  NSCORD 
*  COL  8  IS  START  OF  MAP  BOARDER 


8  IS  LEFT  BOARDER  »«** 


*  A  _  »  «.  «.  C.  A  •  _• 
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STORE  8  TO  COL 

STORE  EWLCORD  TO  EWCORD 

DO  WHILE  EWCORD  <=  EWHCORD 
IF  EWCORD  =  I  NT ( EWCORD/ 100) *  1 00 
@  4, COL-3  SAY  EWCORD  USING  9999999' 
store  col+10  to  col 
store  ewcord  +  (10*ewinc)  to  ewcord 
ELSE 

STORE  EWCGR  D  +  EW I NC  TO  EWCORD 
STORE  COL+1  TO  COL 
END  I F 
ENDDO 

STORE  6  TO  L 

STORE  8  TO  COL 

STORE  EWLCORD  TO  EWCORD 

STORE  t  TO  INDEX 

DO  WHILE  INDEX  =  1 

@  L, COL-8  SAY  NSHCORD  using  '9999999' 

DO  WHILE  EWCORD  <=  EWHCORD 

IF  EWCORD  --  INT  (EWCORD  /  1 00 )  *100 
@  L , COL  SAY  [  +  ] 

ELSE 

@  L , COL  SAY  '  !  ' 

ENDIF 

STORE  COL+1  TO  COL 
STORE  EWCORD  +  EWINC  TO  EWCORD 
ENDDO 

STORE  INDEX+1  TO  INDEX 
ENDDO 

STORE  7  TO  LINE 
STORE  8  TO  COL 

STORE  NSCORD-nsinc  TO  NSCORD 
STORE  65  TO  BORNO 

STORE  (EWHCORD-EWLCORD) /EWINC+COL  TO  MAXCQL 
*  start  of  main  do  loop  ♦##*  main  do  loop  **# 

DO  WHILE  .NOT.  EOF 

IF  NSCORD/ (nsinc*10)  =  INT  (NSCORD/ (nsincMO)  ) 
@  LINE, COL-8  SAY  NSCORD  USING  '9999999' 

@  LINE, COL  SAY  [+] 

ELSE 

@  LINE, COL  SAY  [-] 

ENDIF 

STORE  1  TO  LASTLOC 

DO  WHILE  LOC:NS  >  NSCORD  .and.  .not.  eot 

STORE  ( LOC : EW  -  EWLCORD ) /ew l nc  TO  XCOL 
IF  LOCrEW-LASTLOC  >  ewinc 
@  LINE, XCOL+8  SAY  chr(borno) 
replace  plt/io  with  borno 
DO  CASE 

CASE  BORNO  =  90 
store  97  to  borno 
CASE  BORNO  =  122 
store  0  to  borno 
OTHERWISE 

STORE  BORNO  TC  BORNOL 


STORE  BORNO  +1  TO  BORNO 
ENDCASE 
ELSE 

if  LOC:EW  =  LASTLQC 
replace  pltno  with  BQRNQL 
else 

replace  pltno  with  borno 
end  i  f 
ENDIF 

STORE  LOCsEW  TO  LASTLOC 
SKIP 

ENDDO 

IF  NSCORD/ (nsinc*10)  =  INT (NSCORD/ (nsi nc* 10) ) 
6  LINE, MAXCOL  +  2  SAY  t  +  ] 

ELSE 

@  LINE, MAXCOL  +  2  SAY  [-1 

ENDIF 

STORE  LINE+1  TO  LINE 
STORE  NSCORD-nsinc  TO  NSCORD 
IF  LINE  =  120  ' 

SET  PRINT  ON 
@  120,0  SAY  ' 

SET  PRINT  OFF 
IF  LINSP  =  LIN8 
SET  PRINT  ON 
??  CHR (27) +"@" 

??  CHR(27)+" j"+chr (24) 

??  &LINSP 
??  CHR (15) 

SET  PRINT  OFF 
ELSE 

SET  PRINX  ON 
??  CHR  (27)  Vg* 

??  CHR (27) +“ j “+chr (36) 

??  StLINSP 
??  CHR (15) 

SET  PRINT  OFF 
ENDIF 

STORE  0  TO  LINE 
ENDIF 

ENDDO 

*  end  of  main  do  loop  ***  end  main  do  loop  *** 

*  CHECK  FOR  LINE  NUMBER  AND  RESET  TOP  OF  FORM 

IF  LINE  =  100 
SET  PRINT  ON 
§  100,0  SAY  '  ' 

SET  PRINT  OFF 
IF  LINSP  =  LIN8 
SET  PRINT  ON 
??  CHR (27 ) +"@" 

??  CHR ( 27 ) + " j"+chr (24) 

??  &LINSP 
77  chr (15) 

SET  PRINT  OFF 


SET  PRINT  ON 
'’?  CHR (27) + "9" 

??  CHR(27)+"j"+chr  (36) 

??  ?<  L  I N  S  P 
??  chr ( 1 5 ) 

SET  PRINT  OFF 
END  IF 

STORE  1  TO  LINE 
END  I F 

*  print  last  line 
STORE  S  TO  COL 

IF  NSCORD/ (nsincMO)  =  I  NT ( NSCORD/ ( nsi nc* 1 0 ) ) 
9  LINE.O  SAV  NSCORD  using  9999999 
9  LINE, COL  SAV  [+] 

9  LINt ,MAXC0L+2  SA*  [+1 
ELSE 

9  LINE, COL  SAY  [-] 

9  l:ne,maxcol+2  say  i-i 

END  IF 

store  line+1  to  line 
STORE  EWLCORD  TO  EWCORD 
STORE  1  TO  INDEX 
DO  WHILE  INDEX  =  1 

DO  WHILE  EWCORD  <=  EWHCORD 

IF  EWCORD  =  INT (EWCORD/ 100) *100 
9  LINE, COL  SAY  C ♦ I 
ELSE 

9  LINE, COL  SAY  '  !  ' 

END  I F 

STORE  COL+ 1  TO  COL 
STORE  EWCORD  +  EWINC  TO  EWCORD 
ENDDO 

STORE  INDEX+1  TO  INDEX 
ENDDO 

STORE  8  TO  COL 
store  line+2  to  line 
STORE  EWLCORD  TO  EWCORD 

DO  WHILE  EWCORD  <=  EWHCORD 
IF  EWCORD  =  INT  (EWC0RD/100M100 
9  LINE, COL-3  SAY  EWCORD  USING  '9999999' 
store  col+10  to  col 
store  ewcord  +  (10*ewinc)  to  ewcord 
el  se 

STORE  EWCORD+EW I NC  TO  EWCORD 
STORE  COL  + 1  TO  COL 
endi  t 
ENDDO 

store  1 l ne+2  to  line 
STORE  8  TO  COL 
set  print  on 
CHR  (27)  +"2" 
set  print  oft 
IF  SCALE  =  400 
SET  PRINT  ON 
7'1  CHR  (  15) 


SET  PRINT  OFF 
END  I F 
GO  TOP 

8  LINE+4,4  SAY  [LEGEND:  ] 

STORE  0  TO  TOTBOR 

STORE  LINE+6  TO  LINE 

COUNT  ALL  TO  NUMREC 

STORE  INT (NUMREC/2+0. 5)  TO  JUMP 

8  LINE.O  SAY  'POINT' 

8  L I NE , 7  SAY  BORING' 

8  LINE, 65  SAY  'POINT 
8  L INE , 72  SAY  'BORING 
STORE  LINE+ 1  TO  LINE 
8  LINE,  1  SAY  NO.  ' 

8  LINE, 7  SAY  NUMBER 
8  LINE, 21  SAY  SID  ' 

IF  WANT  =  P 
8  LINE, 25  SAY  SITE: 

ELSE 

8  LINE, 25  SAY  PROJ:  ' 

END  I F 

8  LINE, 66  SAY  NO.  ' 

8  LINE, 72  SAY  NUMBER' 

8  LINE, 86  SAY  SID' 

IF  WANT  =  P' 

§  LINE, 90  SAY  SITE:  ' 

ELSE 

8  LINE, 90  SAY  PROJ:  ' 

ENDIF 

STORE  LINE+1  TO  LINE 
GO  TOP 

DO  WHILE  .NOT.  EOF 
IF  TOT  BOR  <  NUMREC 
8  LINE, 2  SAY  ch' (PLTNQ) 

8  LINE, 7  SAY  BOR  I D  USING  XXXXXXXXXX' 
8  LINE, 19  SAY  SID  USING  '99999' 

IF  WANT  =  'P' 

8  LINE, 25  SAY  SITE: NAME 
ELSE 

8  LINE, 25  SAY  PROJ : NAME 
ENDIF 

STORE  TOTBOR+ 1  TO  TOTBOR 
SKIP  +JUMP 
ENDIF 

IF  TOTBOR  <=  NUMREC- 1 
8  LINE, 67  SAY  chr ( PLTNO ! 

8  LINE, 72  SAY  BOR  ID  USING  'XXXXXxXXXX 
8  LINE, 84  SAY  SID  USING  '99999 
IF  WANT  =  'F" 

8  LINE, 90  SAY  SITE: NAME 
ELSE 

8  LINE, 90  SAY  PROJ: NAME 
ENDIF 

STORE  TOTBOR+1  TO  TOTBOR 
IF  TOTBOR  =  NUMREC 


STORE  LINE+1  TO  LINE 
SKIP 
LOOP 
END  I F 

SKIP  -(JUMP-1) 

END  I F 

STORE  LINE+1  TO  LINE 
ENDDO 

9  LINE+1, 3  SAY  "NUMBER  OF  BORINGS  =" 

@  LINE+1, 23  SAY  NUMREC  USING  '99' 

*  @  LINE+1, 31  SAY  I**********#************#******#**************] 

*  e  LINE+2,31  SAY  [*] 

*  i f  want  =  ' P ' 

*  @  line+2,34  say  'PROJECT:' 

*  9  LINE  +  2,75  SAY  '*  ' 

*  §  LINE+3,34  SAY  PROJ : NAME 

*  ELSE 

*  9  LINE  +  2,34  SAY  'SITE:  ' 

*  9  LINE+2,75  SAY 

*  9  LINE+3,34  SAY  SITE: NAME 

*  END  I F 

*  9  LINE+3,75  SAY  [#] 

*  @  LINE+4,31  SAY  [ a********************************************  ] 

*  9  L I NE+B , 5  SAY  “END  OF  BORING  LOCATION  PLOT" 

9  LINE+9,0  SAY  “  " 

use 

RELEASE  ALL 
RESTORE  FROM  MEMVAR2 
SET  PRINT  ON 
??  CHR (27) +"£" 

SET  PRINT  OFF 

set  format  to  screen 

RETURN 


J 


7  u1"'  1  ’  v  ’ 


rrr 


*  command  tile  to  plot  1  to  3  logs  to  desired  vertical  scale.  B0RLQG3.PRG 

*  modified  02/28/85  w.e.  strohm  WESGR 
ERASE 

SAVE  TO  MEMVAR 
RELEASE  ALL 

REMARK  BORING  LOG  PLOT  PROGRAM  FOR  ONE  TO  THREE  LOGS  PER  SHEET 

REMARK  ON  AN  EPSON  OR  COMPATIBLE  DOT  MATRIX  PRINTER 

INPUT  Enter  the  number  or  borings  to  plot:  1,  2,  or  3  (14-in  paper  for  3) 
TO  NUMBOR 

ACCEPT  DOES  PRINTER  HAVE  14-IN.  WIDE  PAPER,  Y  OR  N'  TO  PAPERM 

STORE  ’(PAPERM)  TO  PAPERM 
IF  PAPERM  =  N  .AND.  NUMBOR  =  3 
REMARK  CAN  ONLY  PLOT  TWO  BORINGS  ON  8-1/2  IN.  PAPER. 

STORE  2  TO  NUMBOR 
END  I F 

remark  Enter  the  boring  number (s)  when  asked  (must  be  as  stored, 
remark  including  blanks,  e.g.  DH  1640;  can  be  in  UPPER  or  lower 

remark  case  characters. 

STORE  BORMAIN  INDEX  BORMA I N I  '  TO  BF1LE 
store  N'  to  action 

REMARK  FOR  FIRST  BORING  (hit  any  key  to  continue), 
wa  i  t 

DO  BORFIND 
IF  ACTION  =  'Q' 

RESTORE  FROM  MEMVAR 
RETURN 
END  I F 

STORE  BORNUM  TO  B0RNUM1 
STORE  BORSIDM  TO  B0RSID1 
STORE  BORSIDC  TO  B0RSIDC1 
STORE  TOPELM  TO  T0PEL1 
IF  NUMBOR  >=  2 

REMARK  FOR  SECOND  BORING  (hit  any  key  to  continue), 
wa  i  t 

DO  BORFIND 
IF  ACTION  =  'Q 
RESTORE  FROM  MEMVAR 
RETURN 
END  I  F 

STORE  BORNUM  TO  B0RNUM2 
STORE  BORSIDM  TO  B0RSID2 
STORE  BORSIDC  TO  BORSIDC 2 
STORE  TOPELM  TO  T0PEL2 
END  I  F 

IF  NUMBOR  =  3 

REMARK  FOR  THIRD  BORING  (hit  any  key  to  continue), 
wait 

DO  BORFIND 
IF  ACTION  =  0 

RESTORE  FROM  MEMVAR 
RETURN 
END  IF 

STORE  BORNUM  TO  B0RNUM3 
STORE  BORSIDM  TO  B0RSID3 
STORE  BORSIDC  TO  B0RSIDC3 


E45 


STORE  TOPELM  TO  TOPEL3 
END  I F 

RELEASE  BORNUM 
RELEASE  BORSIDM 
RELEASE  BORSIDC 
RELEASE  TOPELM 

REMARK  CHECKING  COMPLETE 

USE  BORSID  INDEX  BORSIDN 
FIND  '&BORSIDC1' 

STORE  PRO J : NAME  TO  PROJ 
STORE  SITE: NAME  TO  SITE 
STORE  LOC : NS  TO  NSCORD1 
STORE  LOC : EW  TO  EWCORD1 
STORE  DATE  TO  DATE  1 
STORE  T 0 P : H 0 L E  TO  TOPEL1 
STORE  DEPTH  TO  DEPTH  1 
STORE  TOPEL 1 -DEPTH  1  TO  BOTEL1 
* 

IF  NUMBOR  >=  2 
FIND  ' &BORS I DC2  ’ 

STORE  LOC : NS  TO  NSC0RD2 
STORE  LOC : EW  TO  EWC0RD2 
STORE  DATE  TO  DATE2 
STORE  TOP : HOLE  TO  T0PEL2 
STORE  DEPTH  TO  DEPTH2 
STORE  TOPEL2-DEPTH2  TO  B0TEL2 
END  I F 
* 

IF  NUMBOR  =  3 
FIND  '  &BORS I  DC3  ' 

STORE  LOC : NS  TO  NSCORD3 
STORE  LOC : EW  TO  EWCORD3 
STORE  DATE  TO  DATE3 
STORE  TOP : HOLE  TO  T0PEL3 
STORE  DEPTH  TO  DEPTH3 
STORE  T0PEL3-DEPTH3  TO  B0TEL3 
END  I F 
ERASE 

SET  FORMAT  TO  SCREEN 

0  3,5  SAY  BORING  NUMBERS  AND  DEPTHS  ARE:  ' 

0  4,10  SAY  BORING  NO.  ' 

0  4,30  SAY  'DEPTH,  FT.  ' 

0  5,10  SAY  BORNUM 1 

0  5,30  SAY  DEPTH  1 

IF  NUMBOR  >=  2 
@6,10  SAY  B0RNUM2 
0  6,30  SAY  DEPTH2 
ENDIF 

IF  NUMBOR  =  3 
0  7,10  SAY  B0RNUM3 
0  7,30  SAY  DEPTH3 
ENDIF 

§  8,0  SAY  '  ' 

remark  Options  for  vertical  scale  are:  5  ft/in  (max  boring  depths  <  40  ft) 


remark 
remark 
r  emar  k 


10  ft/in  (max  boring  depths  <  80  ft) 
20  ft/in  (max  boring  depths  <  160  ft) 
30  ft/in  (max  boring  depths  <  240  ft) 


input 


ENTER  CHOICE! 


10,  20,  OR  30'  TO  SCALE 


remark  F'rinter  plot  will  take  a  few  minutes,  so  take  5. 
USE 

STORE  0  TO  NSDIF 
IF  NUMBOR  >=  2 

STORE  NSCORD 1 -NSC0RD2  TO  NSDIF 
IF  NSDIF  <  0 
STORE  NSDIF*— 1  TO  NSDIF 
ENDIF 

STORE  EWCORD 1 -EWCQRD2  TO  EWDIF 
IF  EWDIF  <  0 
STORE  EWDIF*— 1  TO  EWDIF 
ENDIF 

IF  EWDIF  <>  0  .OR.  NSDIF  <>  0 
DO  SQROQT 

STORE  INT (DIST/10  +  0.5)*10  TO  DIST12 
ELSE 

STORE  0  TO  DIST12 
ENDIF 
ENDIF 

IF  NUMBOR  =  3 

STORE  NSC0RD2-NSC0RD3  TO  NSDIF 
IF  NSDIF  <  0 
STORE  NSD I F *  —  1  TO  NSDIF 
ENDIF 

STORE  EWC0RD2-EWC0RD3  TO  EWDIF 
IF  E W D I F <  0 

STORE  EWDIF*-1  TO  EWDIF 
ENDIF 

IF  EWDIF  <>  0  .OR.  NSDIF  <>  0 
DO  SQROOT 

STORE  INT (DIST/10  +  0 . 5 ) *  1 0  TO  DIST23 
ELSE 

STORE  0  TO  DIST23 
ENDIF 
ENDIF 

RELEASE  NSDIF 
RELEASE  EWDIF 
RELEASE  DIST 
IF  NUMBOR  <=  2 
STORE  20  TO  C0L1 
STORE  70  TO  C0L2 
ENDIF 

IF  NUMBOR  =  3 
STORE  20  TO  C0L1 
STORE  70  TO  C0L2 
STORE  120  TO  C0L3 
ENDIF 

STORE  TOF'ELl  TO  H I  EL 


IF  NUMBOR  >=  2 
IF  H I  E L <  T 0 F‘ E L 2 
STORE  TOPEL2  TO  H I  EL 
END  IF 
END  I F 

IF  NUMBOR  =  3 
IF  HIEL<  TOPEL3 
STORE  T0PEL3  TO  H I  EL 
END  IF 
END  I F 

STORE  INT (HIEL/5  +  0. 5>  *5  TO  H  I  EL 
STORE  BOTEL1  TO  LBOTEL 
IF  NUMBOR  >=  2 
IF  LBOTEL  B0TEL2 

STORE  BOTEL2  TO  lBOTEL 
END  I  F 
END  1  F 

IF  NUMBOR  =  3 
IF  LBOTEL  BOTEl’ 

STORE  BOTEL3  TO  LBOTEL 
END  I F 
END  I F 

SET  FORMAT  TO  PRINT 
SET  MARGIN  TO  0 
*  SET  PRINT  TO  COMPRESSED 
SET  PRINT  ON 
??  CHR  (27)  + "  8 " 

’?  CHR  1 15) 

SET  PRINT  OFF 

8  1,20  SAY  'LOG  OF  STRATA  NAMES  AND  DESCRIPTIONS.  VERTICAL  SCALE 
@1.76  SAY  SCALE  USING  '99' 

@  1,79  SAY  'FT/IN' 

@  3 , C 0 L 1  - 9  SAY  B0RNUM1  USING  '  X X X X X X X X X X X  ' 

8  3 , COL  1 +3  SAY  ' S I D=  ' 

@  3 , COL  1 +8  SAY  B0RSID1  USING  '99999' 

IF  NUMBOR  >=  2 

8  3 , C0L2-9  SAY  B0RNUM2  USING  XXXXXXXXXX' 

8  3 , C0L2+3  SAY  ' S I D= ' 

8  3 , C0L2+8  SAY  B0RSID2  USING  '99999' 

END  IF 

IF  NUMBOR  =  3 

8  3 , C 0 L 3 - 9  SAY  B0RNUM3  USING  'XXXXXXXXXX' 

8  3.C0L3  +  3  SAY  ' S I D=  ' 

8  3 , C0L3+8  SAY  B0RSID3  USING  '99999' 

END  I F 

8  4 , COL  1-9  SAY  'E-W  CORD=  ' 

8  4 , COL  1  +  1  SAY  EWC0RD1 
IF  NUMBOR  >  =  2 
8  4.C0L2-9  SAY  E-W  CORD=  ' 

8  4.C0L2+1  SAY  EWC0RD2 
END  I F 

IF  NUMBOR  =  3 

8  4 , C0L3-9  SAY  E-W  CORD=  ’ 

8  4,C0L3+1  SAY  EWC0RD3 
ENDIF 


@  5 , COL  1  -9  SAY  'N-S  CORO=  ' 

@  5 , COL  1  +  1  SAY  NSCORD1 
IF  NUMBOR  >=  2 
9  5.C0L2-9  SAY  'N-S  C0RD=  ' 

@  5 , C0L2+ 1  SAY  NSC0RD2 
END  I F 

IF  NUMBOR  =  3 

9  5.C0L3-9  SAY  'N-S  CORD=  ' 

@  5 , C0L3  + 1  SAY  NSC0RD3 
END  I F 

@  6  ,  C  0  L 1  -  3  SAY  DATE  1  USING  '  X X X X X X X X X X  ' 

IF  NUMBOR  >=  2 

@  b ,  COL2-3  SAY  DATE2  USING  'XXXXXXXXXX 
END  I F 

IF  NUMBOR  =  3 

9  6,  C0L3-3  SAY  DATE3  USING  'XXXXXXXXXX 
END  I F 

9  7 , COL  1-8  SAY  TOP  EL=  ' 

@  7 , COL  1  SAY  TOPEL1  USING  '99999.99' 

9  7 , COL  1 +9  SAY  'FT' 

IF  NUMBOR  >=  2 
9  7 , C0L2-8  SAY  'TOP  EL=  ' 

9  7 , C0L2  SAY  T0PEL2  USING  '99999.99' 

@  7 , C0L2+9  SAY  'FT' 

END  I F 

IF  NUMBOR  =  3 
9  7 , C0L3-8  SAY  'TOP  EL= 

9  7 , C 0 L 3  SAY  TOPEL3  USING  '99999.99' 

9  7 , C0L3+9  SAY  'FT' 

ENDIF 

0  8  ,  COL  1 -7  SAY  ' DEPTH=  ' 

§  8 , COL  1  SAY  DEPTH1  USING  '9999.99' 

9  8 ,  COL  1+8  SAY  'FT*' 

IF  NUMBOR  >=  2 
9  8  ,  C0L2-7  SAY  '  DEF'TH=  ' 

9  8 , C0L2  SAY  DEPTH2  USING  '9999.99' 

@  8 , C0L2+8  SAY  'FT' 

ENDIF 

IF  NUMBOR  =  3 
@  8 , COL3-7  SAY  ' DEPTH=  ' 

@  8 , C0L3  SAY  DEPTH3  USING  '9999.99' 

§  8 , COL3+8  SAY  'FT' 

ENDIF 

IF  NUMBOR  >=2 

0  9 , COL  1  +  15  SAY  DISTANCE  =  ' 

@  9 , COL  1 +26  SAY  DIST12  USING  '9999' 

@  9 , COL  1+31  SAY  'FEET' 

ENDIF 

IF  NUMBOR  =  3 

@  9 , COL2+ 15  SAY  'DISTANCE  =  ' 

9  9 , C0L2+26  SAY  DIST23  USING  '9999' 

9  9 , C0L2+3 1  SAY  'FEET' 

ENDIF 

USE  BORFEA  INDEX  BORFEAI 
FIND  8<BORNUM  1 


DO  WHILE  BOR  I D  =  BORNUM1  .AND.  .NOT.  EOF 
IF  SID  =  BORSID1 
STORE  #  TO  RECB1 
STORE  BORNUM1  TO  BOR1 
STORE  NONE'  TO  BORNUM1 
LOOP 
ELSE 
SKIP 
LOOP 
END  I  F 
ENDDO 

SI  ORE  BOR  1  TO  BORNUM1 
IF  NUMBOR  >=  2 
FIND  &B0RNUM2 

DO  WHILE  BOR  I D  =  BORNUM2  .AND.  .NOT.  EOF 
IF  SID  =  BORSID2 
STORE  #  TO  RECB2 
STORE  B0RNUM2  TO  B0R2 
STORE  NONE'  TO  B0RNUM2 
LOOP 
ELSE 
SKIP 
LOOP 
END  I F 
ENDDO 

STORE  B0R2  TO  BORNUM2 
END  IF 

IF  NUMBOR  =  3 
FIND  &B0RNUM3 

DO  WHILE  BOR  I D  =  B0RNUM3  .AND.  .NOT.  EOF 
IF  SID  =  BORSID3 
STORE  «  TO  RECB3 
STORE  BORNUM3  TO  B0R3 
STORE  NONE'  TO  BORNUM3 
LOOP 
ELSE 
SKIP 
LOOP 
END  I F 
ENDDO 

STORE  BOR3  TO  B0RNUM3 
ENDIF 
GO  BOTTOM 
STORE  #  TO  RECEND 
GO  TOP 

STORE  H I  EL  TO  LINEL 

*  SET  LINE  SPACING  TO  DESIRED  VERTICAL  SCALE 
IF  SCALE  =  5  .OR.  SCALE  =  10  .OR.  SCALE  =  20 
STORE  ' C H R ( 2 7 > + " 0 "  '  TO  LINSP 
SET  PRINT  ON 
??  CHR ( 27 )  +  "0" 

SET  PRINT  OFF 
ENDIF 

IF  SCALE  =  30 

STORE  CHR ( 27 ) +CHR ( 65 ) +CHR ( 6 )  TO  LINSP 


SET  PRINT  ON 

??  CHR(27)+CHRl65)+CHR(6) 

SET  PRINT  OFF 
END  I F 

SET  PRINT  ON 

??  CHR <27) +CHR (85) +CHR ( 1 > 

SET  PRINT  OFF 
STORE  1  TO  INDX1 
STORE  1  TO  INDX2 
STORE  1  TO  INDX3 

STORE  INT (LBOTEL/IO-O. 5) *10  TO  LOWBOT 

*  STORE  LINE  INCREMENT  FOR  CHECKING  TO  PRINT  DATA  VALUES  AT  LINE  ELEV 
IF  SCALE  =  20  .OR.  SCALE  =  30 

STORE  1.245  TO  L IN  I  NCR 
END  I  F 

IF  SCALE  =  5 
STORE  0.312  TO  L I N I  NCR 
END1F 

IF  SCALE  =  10 
STORE  0.624  TO  L I N I  NCR 
END  I F 

STORE  10  TO  LINE 
STORE  -100  TO  LA5TEL1 
STORE  -100  TO  LASTEL2 
STORE  -100  TO  LA5TEL3 

*  MAIN  DO  LOOP  ****  MAIN  DO  LOOP  ****** 

DO  WHILE  LINEL  >=  LOWBOT 

DO  CASE 
CASE  L I NE=  l  2 
@  LINE.O  SAY  '  E  ' 

CASE  LINE  =  14 
@  LINE, 0  SAY  L 
CASE  LINE  =  16 
@  LINE.O  SAY  E  ' 

CASE  LINE  =  18 
0  LINE, 0  SAY  V' 

CASE  LINE  =  20 
0  L I N E , 0  SAY  A' 

CASE  LINE  =  22 
0  LINE, 0  SAY  T  ' 

CASE  LINE  =  24 
0  LINE.O  SAY  I  ' 

CASE  LINE  =  26 
0  LINE.O  SAY  0 
CASE  LINE  =  28 
@  LINE, 0  SAY  N 
CASE  LINE  =  32 
0  LINE.O  SAY  F 
CASE  LINE  =  34 
0  LINE, 0  SAY  E 
CASE  LINE  =  36 
0  LINE.O  SaY  E 
CASE  LINE  -  38 
@  LINE.O  SAY  T' 

ENDCASE 


IF  LINEL  =  INT (LINEL/ 10) *10 
@  LINE, 2  SAY  LINEL  USING  '999<? 

@  LINE,?  SAY 
ELSE 

@  LINE, 7  SAY  ' ! ' 

END  I F 

*  Plot  the  first  boring  **** 

IF  RECBI  <  RECEND 
GO  RECBI 
END  IF 

IF  SID  =  B0RSID1  .AND.  LINEL  <=  (T0PEL1+0. 1) 

6  LINE, COL  1  - 1  SAY  ' !  ’ 

IF  FEAT : ELEV  >=  I  NT ( ( L I NEL-L I N I  NCR ) *  1 0- . 5 ) / 1 0 
IF  FEA:  DEPTH  =DEPTH 1  .OR.  FEA : DEPTH  =  DEPTH1-0. 
8  LINE, COL  1  SAY  '  ' 

ELSE 

8  L  I NE , COL  1  SAY 
ENDIF 

@  LINE, COL  1  + 1  SAY  ' !  ' 

@  LINE,CQLl+3  SAY  FEAT : NAME 
@  LINE, COL  1  +  14  SAY  FEAT : DESC 
STORE  FEA : DEPTH  TO  DEPTH  1 
STORE  LINEL  TO  LASTEL1 
SKIP 

STORE  #  TO  RECBI 
ELSE 

@  LINE, COL  1  +  1  SAY  '  ! ' 

ENDIF 

ENDIF 

IF  SID  <>  B0RSID1  .AND.  LINEL  <  LASTEL1  .AND.  LI 
@  LINE, COH-1  SAY  '  !  ' 

@  LINE, COL  1  SAY  '  ' 

@  LINE, COL  1  +  1  SAY  '  !  ' 

STORE  LINEL  TO  LASTEL1 
ENDIF 

IF  SID  <>  B0RSID1  .AND.  LINEL  <  LASTEL1  -AND.  Lit 
DO  WHILE  INDX 1=1 
«  LINE, COL  1+3  SAY  ' EL=  ' 

@  LINE, COL  1+7  SAY  B0TEL1  USING  '99999. 99' 

STORE  INDX 1+1  TO  INDX1 
ENDDO 
ENDIF 

IF  NUMBOR  >=  2 
DO  B0R2L0G 
ENDIF 

IF  NUMBOR  =  3 
DO  B0R3L0G 
ENDIF 

IF  NUMBOR  <=  2 
IF  LINEL  =  INT (LINEL/10) *10 
@  LINE, 125  SAY 

§  LINE, 127  SAY  LINEL  USING  '9999' 

ELSE 

«  LINE, 125  SAY  ' ! ' 

ENOIF 


.AND.  LINEL  <  LASTEL1  .AND.  LINEL  >  B0TEL1 


LASTEL1  -AND.  LINEL  <  B0TEL1 


'99999.99' 


END  I F 

IF  NUMBOR  =  3 

IF  LINEL  -  INT (LINEL/10) *10 
0  LINE,  165  SAV 

0  LINE, 167  SAY  LINEL  USING  '9999' 

ELSE 

0  LINE, 165  SAY  I ' 

END  I  F 
END  IF 

STORE  LINE+1  Tu  LINE 
IF  LINE  =  120 
0  120,0  SAY 
SET  PRINT  ON 

C  H  R (27) + " @ “ 

CHR(27)+"j" 

&1 l nsp 
??  chr  (151 

??  chr  (27) +chr (85) +  chr  <  1 ) 
set  print  oft 
store  0  to  line 
END  IF 

*  SET  LINE  ELEV  INC.  FOR  DESIRED  SCALES 
DO  CASE 

CASE  SCALE  =  20  .OR.  SCALE  =  30 
STORE  LINEL-2.5  TO  LINEL 
CASE  SCALE  =  5 
STORE  LINEL- 0. 625  TO  LINEL 
CASE  SCALE  =  10 
STORE  LINEL-1.25  TO  LINEL 
ENDCASE 
ENDDO 

*  END  OF  MAIN  DO  LOOP  ****  END  MAIN  DO  LOOP  *** 

SET  PRINT  ON 


??  CHR (27) +"0" 
??  CHR (15) 


*************************************************** 


SET  PRINT  OFF 
USE 

0  LINE+1,81  SAY  ************************ 

0  LINE+2,31  SAY  '*' 

0  LINE+2,83  SAY  ' PRO J :  ' 

0  LINE+2,90  SAY  PRO J 
0  LINE  +  2, 131  SAY  ' *  ' 

@  LINE'*  3 ,81  SAY  ’*  ' 

0  LINE+3,83  SAY  'SITE: 

0  LINE+3,9 0  SAY  SITE 
0  LINE  +  3, 131  SAY  '  *  ' 

0  LINE *4 ,81  SAY  *  ' 

0  LINE+4,82  SAY  'LOG  OF  BORINGS' 

0  LINE+4,97  SAY  B0RNUM1  USING  XXXXXXXXXX 
IF  NUMBOR  >  =  2 
0  LINE +  4,  108  SAY  B0RNUM2  USING  XXXXXXXXXX' 
END  I  F 

IF  NUMBOR  =  3 

0  LINE  +  4,120  SAY  B0RNUM3  USING  ' X  X  X  X  X  X  X  X  X 
EMDIF 


XXXXXXXXXX 


*  calculating  square  root  for  plotting  boring  logs.  SQROOT.PRG 
STORE  NSDIF/EWDIF  TO  TANA 
STORE  TANA*TANA*TANA  TO  TANA3 
IF  TANA*TANA  <  1 

STORE  TANA3*TANA*TANA  TO  TANA5 
STORE  (TANA  -  (TANA3/3)  +  (TANA5/5) )  TO  ATANA 
ELSE 

STORE  ( 1 . 5708— ( 1/TANA) + ( 1 / (3*TANA3) ) )  TO  ATANA 

ENDIF 

STORE  ATANA*ATANA*ATANA  TO  ATANA3 

STORE  ATANA3#ATANA*ATANA  TO  ATANA5 

STORE  (ATANA- ( ATANA3/6) + ( ATANA5/ 1 20) )  TO  SINA 

STORE  INT (NSDIF/SINA)  TO  DIST 

RELEASE  TANA 

RELEASE  TANA3 

RELEASE  TANA5 

RELEASE  ATANA 

RELEASE  ATANA3 

RELEASE  ATANA5 

RELEASE  SINA 

RETURN 


B0R2LQG. PRG 


*  command  file  to  piot  second  boring. 

IF  PECB2  <  RECEND 
GO  RECB2 
END  I F 

IF  SID  =  BQRSID2  .AND.  LINEL  <.=  iT0PEL2+0.1) 

@  LINE, C0L2- 1  SAV  :  ' 

IF  FEAT : ELEV  >=  I  NT ( ( L I NEL-L I N I  NCR ) *  1 0- . 5 ) / 1 0 
IF  FEA :  DEPTH  =  DEPTH2  .OF:.  FEA:  DEPTH  =  DEPTH2-0.01 
@  LINE, CQL2  SAV 
ELSE 

'}  LINE,  C0L2  SAV 
ENDIF 

@  L I NE , C0L2+  1  SAY  !  ' 

@  LINE, C0L2+3  SAY  FE AT : NAHE 
@  LINE , C0L2+1 4  SAY  FE AT : DESC 
STORE  FEA:DEPTH  TO  DEPTH2 
STORE  LINEL  TO  LASTEL2 
SKIP 

STORE  #  TO  RECB2 
ELSE 

@  LINE , C0L2+ 1  SAY  !  ' 

ENDIF 

ENDIF 

IF  SID  <>  B0RSID2  .AND.  LINEL  <  LASTEL2  .AND.  LINEL  >  B0TEL2 
@  LINE, CQL2- 1  SAY  '  i  ' 

@  L I NE , COL 2  SAY 
@  LINE, C0L2+  1  SAY  1  ! 

STORE  LINEL  TO  LASTEL2 
ENDIF 

IF  SID  <>  B0RSID2  .AND.  LINEL  <  LASTEL2  .AND.  LINEL  <  B0TEL2 
DO  WHILE  INDX2  =  1 
@  LINE,  C0L2  +  3  SAY  ' E L  = 

@  LINE,  C0L2+7  SAY  B0TEL2  USING  '99999. 99' 

STORE  INDX2+ 1  TO  INDX2 
ENDDO 
ENDIF 
RETURN 
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*  command  file  to  plot  third  boring  log. 

IF  RECB3  <  RECEND 
GO  RECB3 
ENDIF 

IF  SID  =  B0RSID3  .AND.  LINEL  <  =  (T0PEL3+0.1) 

@  LINE, C0L3-  1  SAV  '  !  ' 

IF  FEAT : ELE V  >=  INT ( (LINEL-LININCR) *10-. 5) /  10 
IF  FEA: DEPTH  =  DEPTH3  .OR.  "EA: DEPTH  =  DLPTH3-0.01 
@  LINE, COL 3  SAY  '  ' 

ELSE 

3  LINE.C0L3  SAY 
ENDIF 

@  LINE, C0L3+ 1  SAY  ’  !  ' 

@  LINE, C0L3+3  SAY  FEAT : NAME 
a  LINE , C0L3+ 14  SAY  FEAT : DESC 
STORE  FEAsDEPTH  TO  DEPTH3 
STORE  LINEL  TO  LASTEL3 
SKIP 

STORE  #  TO  RECB3 
ELSE 

@  LINE, C0L3+  1  SAY  '  !  ' 

ENDIF 

ENDIF 

IF  SID  <>  B0RSID3  .AND.  LINEL  <  LASTEL3  .AND.  LINEL  >  BOTEL 
@  LINE, C0L3- 1  SAY  ' ! ’ 

@  LINE, C0L3  SAY  '  ' 

§  LINE, C0L3+ 1  SAY  1  1  ' 

STORE  LINEL  TO  LASTEL3 
ENDIF 

IF  SID  <>  B0RSID3  .AND.  LINEL  <  LASTEL3  .AND.  LINEL  <  B0TEL3 
DO  WHILE  INDX3  =  1 
@  LINE, C0L3  +  3  SAY  EL=  ' 

«  LINE,C0L3+7  SAY  B0TEL3  USING  '99999. 99- 
STORE  INDX3+1  TO  INDX3 
ENDDO 
ENDIF 
RETURN 


*  MENU  FOR  SELECTION  OF  SUMMARY  REPORTS  TO  PRINT  BORPR I  NT . PRG 

set  format  to  print 

eject 

set  format  to  screen 
store  '  G  '  to  continue 
do  while  continue  <  >  '  9  ' 
erase 


remark  MENU  FOR  SELECTION  OF  SUMMARY  REPORTS  Selection 

remark  LIST  OF  PROJECTS  AND  SITES  ------------ ---i 

o 


remark  LIST  OF  BORINGS,  COORD.,  DATE,  TOP  ELEV.  ,  AND  DEPTH 
REMARK  FOR  A  PROJECT  uR  A  SITE  ---------- 

remark  TABULAR  LOG  FOR  GIVEN  BORING  (CLASS  &  DESCRIP)  -  - 


remark  TABULAR  LOG  OF  DRILLING  TYPE  FOR  A  GIVEN  BORING  -  -  -  -  A 

n 

remark  TABULAR  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING  -----  5 

n 

remark  LIST  OF  TEST  TYPES  FOR  GIVEN  PROJECT  OR  SITE  ------  6 

remark  TEST  RESULTS  FOR  GIVEN  PROJECT  OR  SITE  BY  BORING  NO.  -  -  7 

remark  TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING  -  -  -8 

remark  RETURN  TO  PREVIOUS  MENU . . . . -9 


ACCEPT  Enter  Selection  to  continue 

* 

*  set  or  reset  EPSON  printer  for  12  chr/inch,  and  new  page. 
SET  PRINT  ON 

??  CHR  (27) +,,@" 

??  CHR(27)+"M“ 

SET  PRINT  OFF 
SET  MARGIN  TO  8 

# 

l  f  cont-i  nue  =  '  1  ' 

DO  BORPROJ 
SAVE  TO  MEMVAR 
CLEAR 

RESTORE  FROM  MEMVAR 
1  oop 
endi  f 

* 

if  continue  =  ' 2 ’ 

DO  BORLIST 
1  oop 
end i  f 
* 

i f  continue  =  ' 3  ' 

DO  BORLOGPT 
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IF  CONTINUE  =  '  4  ‘ 

DO  BORDRILL 
LOOP 
END  IF 
* 

IF  CONTINUE  =  '5' 

DO  BORBLOW 
LOOP 
ENDIF 
* 

if  continue  =  '  6  ’ 

USE  BORTST 

INDEX  ON  STR (S I D , 5 , 0 )  TO  BORTSTN 
DO  BORTESTS 
SAVE  TO  MEMVAR 
CLEAR 

RESTORE  FROM  MEMVAR 
1  oop 
end  i  f 
* 

if  continue  =  '7' 

DO  BORRESUL 
1  oop 
end  i  f 
* 

it  continue  =  ' 8 ' 

SET  MARGIN  TO  10 
DO  BORLOGT 
1  oop 
end  l  f 
# 

if  continue  <>  '9' 

remark  Invalid  selection 

accept  '  Enter  9  to  exit  to  main  menu,  or  "Return"  to  try  again  to  continue 
end i  f 

* 

i f  continue  =  '  9  ' 

store  ' M  ’  to  r unn l ng 
1  oop 
end i  f 
♦ 

enddo 

return 


*  to  print  a  list  of  projects  and  sites  BORPROJ.PRG 

SET  FORMAT  TO  PRINT 

USE  BORSID  INDEX  BQRSIDP 

STORE  PRO J : NAME  TO  PROJM 

STORE  SITE: NAME  TO  SITEM 

@  5,5  SAY  'LIST  OF  PROJECTS  AND  SITES  IN  THE  BORING  DATA  BASE 

STORE  7  TO  LNO 

@  LNO, 5  SAY  'PROJECT:  ' 

g  LNO, 14  SAY  PRO J : NAME 

@  LNO+1 ,5  SAY  SITE:  ' 

e  LNO+1 , 14  SAY  SITE: NAME 

SKIP 

STORE  LNO  +  3  TO  LNO 
DO  WHILE  .NOT.  EOF 

IF  F'RQJ :  NAME  <>  PROJM  .OR.  SITE:  NAME  <>  SITEM 
@  LNO, 5  SAY  'PROJECT:  ' 

@  LNO, 14  SAY  PROJ : NAME 
§  LNO+1 ,5  SAY  SITE:  ' 

§  LNO+1 ,14  SAY  SITE: NAME 
STORE  LNO+3  TO  LNO 
END  I F 

STORE  PROJ : NAME  TO  PROJM 
STORE  SITE: NAME  TO  SITEM 
SKIP 

IF  LNO  >  60 
EJECT 

@  5,5  SAY  'LIST  OF  PROJECT  AND  SITES  (CONTINUED)' 

STORE  7  TO  LNO 
END  IF 
ENDDO 

e  LNO+1, 3  SAY  ' 

EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 


*  PRINT  A  LIST  OF  BOR INGS , COORD , ELEV , DATE , DEPTH  FOR  GIVEN  PROJECT 

*  BORLIST. PRG 
STORE  'T'  TO  TRY 

*  MAIN  DO  LOOP 

DO  WHILE  TRY  <>  T 

ACCEPT  ’ENTER  P  TO  LIST  FOR  A  PROJECT  NAME,  OR  S  TO  LIST  FOR  A  SITE'  TO  WANT 
STORE  ! (WANT)  TO  WANT 
IF  WANT  =  'P' 

ACCEPT  'ENTER  PROJECT  NAME'  TO  PROJM 
STORE  'NONE'  TO  SITEM 
ELSE 

STORE  'S'  TO  WANT 

ACCEPT  'ENTER  SITE  NAME'  TO  SITEM 
STORE  'NONE'  TO  PROJM 
ENDIF 

USE  BORMAIN  INDEX  BORMAINI 
SET  FORMAT  TO  PRINT 
IF  WANT  =  'P' 

STORE  '(PROJM)  TO  PROJM 
8  5,5  SAY  'BORING  SUMMARY  FOR  PROJECT i 
8  5,33  SAY  PROJM 
ELSE 

STORE  1 (SITEM)  TO  SITEM 
8  5,5  SAY  'BORING  SUMMARY  FOR  SITE:' 

8  5,33  SAY  SITEM 
ENDIF 

8  7,1  SAY  '--BORING  NO.---' 

8  7,17  SAY  —Sib— ' 

8  7,23  SAY  '--NS  COORD—' 

8  7,36  SAY  EW  COORD—' 

8  7,49  SAY  ---DATE—' 

8  7,61  SAY  TOP  ELEV' 

8  7,70  SAY  DEPTH,  FT' 

STORE  8  TO  LNO 
STORE  0  TO  RECPT 
DO  WHILE  .NOT.  EOF 

IF  !(PROJ:NAME)  =  PROJM  .or.  ! ( s l te: name)  =  sitem 
8  LNO, 1  SAY  BOR  I D 
8  LNO, 17  SAY  SID 
8  LNO, 23  SAY  LOC.-NS 
8  LNO, 36  SAY  LOC:EW 
8  LNO, 49  SAY  DATE 
8  LNO, 59  SAY  TOP:HOLE 
8  LNO, 69  SAY  DEPTH 
STORE  RECPT+1  TO  RECPT 
STORE  LNO+1  TO  LNO 
ENDIF 
SKIP 
ENDDO 

IF  RECPT  =  0 
IF  WANT  = 

REMARK  DID  NOT  FIND  YOUR  PROJECT,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM 
ELSE 

REMARK  DID  NOT  FIND  YOUR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM9 


ACCEPT  ENTER  Y  FOR  YES  AND  N  FOR  NO'  TO  ANS 
STORE  ( (ANS)  TO  ANS 
IF  ANS  =  ‘Y* 

DO  BORPROJ 
LOOP 
ELSE 

STORE  Z-  TO  TRY 
LOOP 
ENDIF 
ENDIF 
ENDIF 

STORE  Z'  TO  TRY 
ENDDO 

*  END  OF  MAIN  DO  LOOP 
STORE  LNO+1  TO  LNO 
9  LNO, 3  SAY  '  ' 

EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 
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*  PRINT  A  TABULAR  LOG  OF  GIVEN  BORING 
STORE  ’ BORFEA  INDEX  BORFEAI  '  TO  BFILE 
store  A'  to  repeat 
DO  WHILE  repeat  <>  S' 

DO  BORFIND 
FIND  6B0RNUM 
IF  «  =  0 

accept  'NO  DATA  FOR  THIS  BORING,  DO  YOU  WANT  TO  ENTER  ANOTHER?  Y  OR  N'  TO  ANS 
store  !  fans)  to  ans 
IF  ans  =  'Y' 

LOOP 

ELSE 

USE 

SET  FORMAT  TO  SCREEN 
RETURN 
ENDIF 
ENDIF 

STORE  'S'  TO  REPEAT 
ENDDO 

SET  FORMAT  TO  PRINT 
«  5,5  SAY  'TABULAR  LOG  OF  BORING:' 

«  5,26  SAY  BORID 

«  5,47  SAY  'SID:  ' 

«  5,52  SAY  BORSIDM  USING  '99999' 

6  5,60  SAY  TOP  ELEV:  ' 

6  5,70  SAY  TOPELM 
8  6,5  SAY  'PROJECT:  ' 

C  6,14  SAY  PROJM 
e  7,5  SAY  'SITE:  ' 
t  7,12  SAY  SITEH 

C  9,2  SAY  ELEVATION' 

C  9,13  SAY  ‘DEPTH,  FT' 

«  9,24  SAY  'STRATA  TYPE' 

6  9,37  SAY  '  DATE' 

•  9,49  SAY  '  DESCRIPTION- 

STORE  11  TO  LNO 

STORE  0  TO  PRNT 

DO  WHILE  BORID  *  BORNUM  .AND.  .NOT.  EOF 
IF  SID  »  BORSIDM 
«  LNO, 1  SAY  FEAT : ELEV 
C  LNO, 13  SAY  FEA: DEPTH 
C  LNO, 24  SAY  FEAT: NAME 

•  LNO, 37  SAY  FEAT : DATE 
C  LNO, 49  SAY  FEAT : DESC 
SKIP 

STORE  LNO+1  TO  LNO 
STORE  1  TO  PRNT 
ELSE 
skip 
ENDIF 
ENDDO 

IF  PRNT  *  0 

C  LNO, 5  SAY  NO  DATA  FOR  THIS  BORING' 

ENDIF 

«  LNO+1, 3  SAY 
EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 


#  PRINT  LOG  OF  DRILL  SEGMENTS  FOR  A  GIVEN  BORING  BORDRILL.PRG 
STORE  '  BORSEG  INDEX  BORSEGI '  TO  BFILE 
store  A'  to  repeat 
DO  WHILE  repeat  <>  'S' 

DO  BORFIND 
FIND  &BORNUM 
IF  *  =  0 

accept  'NO  DATA  FOR  THIS  BORING,  DO  YOU  WANT  TO  ENTER  ANOTHER?  Y  OR  N'  TO  ANS 
store  1  (ans)  to  ans 
IF  ans  =  ' Y 
LOOP 
ELSE 
USE 

SET  FORMAT  TO  SCREEN 
RETURN 
END  IF 
ENDIF 

STORE  S'  TO  REPEAT 
ENDDO 

SET  FORMAT  TO  PRINT 

@  4,15  SAY  'TABULAR  LOG  OF  DRILLING  SEGMENTS' 

@  5,5  SAY  BORING  NO. : ' 

@  5,17  SAY  BORID 

@  5,40  SAY  'SID:  ' 

8  5,45  SAY  BORSIDM  USING  '99999' 

8  5,55  SAY  'TOP  ELEV:  ' 

8  5,65  SAY  TOPELM 

8  6,5  SAY  PROJECT: ' 

8  6,14  SAY  PROJM 
1  7,5  SAY  SITE:  ' 

8  7,11  SAY  SITEM 

8  9,5  SAY  ELEVATION' 

8  9,17  SAY  DEPTH,  FT' 

8  9,27  SAY  BORE  SIZE' 

8  9,38  SAY  BORE  TOOL' 

STORE  11  TO  LNO 
STORE  0  TO  PRNT 

DO  WHILE  BORID  =  BORNUM  .and.  .not.  eoF 
IF  SID  =  BORSIDM 

8  LNO, 5  SAY  BOR: ELEV 
8  LNO, 17  SAY  BOR: DEPTH 
8  LNO, 27  SAY  BOR:SIZE 
8  LNO, 38  SAY  BOR:TOOL 
SKIP 

STORE  1  TO  PRNT 
ELSE 
SKIP 
ENDIF 

STORE  LNO+1  TO  LNO 
ENDDO 

IF  PRNT  =  0 

«  LNO, 5  SAY  'NO  DATA  FOR  THIS  BORING' 

ENDIF 

8  LNO+1,3  SAY  ' 

EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 
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♦  PRINT  LOG  OF  BLOW  COUNTS  FOR  A  GIVEN  BORING 
STORE  ' BORSPT  INDEX  BORSPTI'  TO  BFILE 
store  A'  to  repeat 
DO  WHILE  repeat  <>  'S’ 

DO  BORFIND 
FIND  S.BORNUM 
IF  «  =  0 

accept  NO  DATA  FOR  THIS  BORING,  DO  YOU  WANT  TO  ENTER  ANOTHER'1  Y  OR  N’  TO  ANS 
store  !  (ans)  to  ans 
IF  ans  =  'Y' 

LOOP 

ELSE 

USE 

SET  FORMAT  TO  SCREEN 
RETURN 
ENDIF 
ENDIF 

STORE  S'  TO  REPEAT 
ENDDO 

SET  FORMAT  TO  PRINT  . 

0  4,15  SAY  'TABULAR  LOG  OF  BLOW  COUNTS' 

0  5,5  SAY  'BORING  NO. :  ' 

@  5,17  SAY  BORID 

e  5,40  SAY  'SID:  ' 

8  5,45  SAY  BORSIDM  USING  '99999' 

0  5,55  SAY  'TOP  ELEV:  ' 

B  5,65  SAY  TOPELM 

0  6,5  SAY  'PROJECT:  ' 

«  6,14  SAY  PROJM 
0  7,5  SAY  'SITE:  ’ 

0  7,11  SAY  SITEM 

0  9,5  SAY  ELEVATION' 

0  9,17  SAY  'DEPTH,  FT' 

0  9,27  SAY  'BLOWS/FT' 

0  9,38  SAY  'R  E  M  A  R  K  S' 

STORE  11  TO  LNO 
STORE  0  TO  PRNT 

DO  WHILE  BORID  *  BORNUM  .and.  .not.  eof 
IF  SID  =  BORSIDM 
0  LNO, 5  SAY  BLOW: ELEV 
0  LNO, 17  SAY  BLO: DEPTH 
0  LNO, 27  SAY  BLOW:CTS 
0  LNO, 38  SAY  BLOW: RMKS 
STORE  LNO* 1  TO  LNO 
SKIP 

STORE  1  TO  PRNT 
ELSE 
SKIP 
ENDIF 
ENDDO 

IF  PRNT  =  0 

0  LNO, 5  SAY  NO  DATA  FOR  THIS  BORINS' 

ENDIF 

0  LNO+1,3  SAY  ' 

EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 


*  PRINT  A  LIST  OF  TEST  TYPES  FOR  A  GIVEN  PROJECT  OR  SITE  BORTESTS.PRG 
STORE  1  TO  PAGENO 

STORE  T'  TO  TRY 

*  MAIN  DO  LOOP 

DO  WHILE  TRY  <>  'Z' 

ACCEPT  'ENTER  P  TO  LIST  FOR  A  PROJECT  NAME,  OR  S  TO  LIST  FOR  A  SITE'  TO  WANT 
STORE  1 (WANT)  TO  WANT 
IF  WANT  =  •?' 

ACCEPT  ENTER  PROJECT  NAME'  TO  PROJM 
STORE  1 (PROJM)  TO  PROJM 
ELSE 

STORE  'S'  TO  WANT 

ACCEPT  'ENTER  SITE  NAME'  TO  SITEM 
STORE  1 (SITEM)  TO  SITEM 
ENDIF 

SELE  PRIMARY 

USE  BQRSID  INDEX  BORSIDN 
SELE  SECO 

USE  BORTST  INDEX  BORTSTN 
SET  FORMAT  TO  PRINT 
IF  WANT  =  'F" 

8  5,5  SAY  'SUMMARY  OF  TEST  TYPES  FOR  PROJECT:  ' 

8  5,40  SAY  PROJM 
ELSE 

8  5,5  SAY  'SUMMARY  OF  TEST  TYPES  FOR  SITE:  ' 

8  5,37  SAY  SITEM 
ENDIF 

8  7,25  SAY  TYPE  TEST  ' 

8  7,38  SAY  'NO.  TESTS' 

8  7,49  SAY  'LOC.  RESULTS' 

STORE  9  TO  LNO 
STORE  0  TO  RECPT 
SELE  PRIM 
IF  WANT  =  P' 

LOCATE  FOR  1  ( PRO J  :  NAME )  =  PROJM 
ENDIF 

IF  WANT  =  'S' 

LOCATE  FOR  ! (SITE: NAME )  =  SITEM 
ENDIF 

DO  WHILE  .NOT.  EOF 
STORE  SID  TO  BORSIDM 
STORE  STR (S I D , 5 , 0)  TO  BORSIDC 
IF  LNO  >=  60 
8  LNO+2,45  SAY  PAGENO 

STORE  PAGENO  +  l  TO  PAGENO 
IF  WANT  =  F" 

8  5,5  SAY  SUMMARY  TESTS  FOR  PROJECT:' 

8  5,40  SAY  PROJM 

8  5,80  SAY  ’ (CONT. )  ' 

ELSE 

8  5,5  SAY  SUMMARY  OF  TESTS  FOR  SITE:' 

8  5,37  SAY  SITEM 

8  5,77  SAY  ' (CONT. )  ' 

ENDIF 

8  7,25  SAY  'TYPE  TEST' 


t  7,38  SAY  'NO.  TESTS' 

@  7,49  SAY  'LOC.  RESULTS' 

STORE  9  TO  LNO 
END  I F 

@  LNO , 0  SAY  BORING  NO. :  ' 

@  LNO, 12  SAY  BOR  I D 
8  LNO, 23  SAY  SID: ' 

8  LNO, 28  SAY  SID 
IF  WANT  =  S' 

8  LNO, 35  SAY  'PROJ: ' 

@  LNO, 41  SAY  PROJ : NAME 
ELSE 

8  LNO, 35  SAY  'SITE: ' 

8  LNO, 41  SAY  SITE: NAME 
ENDIF 

STORE  LNO+1  TO  LNO 
SELE  SECO 
FIND  '  &BORS  I  DC  ' 

DO  WHILE  SID  =  BORSIDM  .AND.  .NOT.  EH!" 

8  LNO, 25  SAY  TYP: NAME 
8  LNO, 38  SAY  TYP : NUM 
8  LNO, 49  SAY  TYP:LOC 
STORE  RECPT  +  1  TO  REFT  T 
STORE  LNO+1  TO  LNO 
SKIP 
ENDDO 

STORE  LNO+1  TZ  LNO 
SELE  PRIM 
CONTINUE 
ENDDO 

IF  RECPT  =  0 
IF  '*HNT  =  F" 

REMARK  DID  NOT  FIND  YOUR  PROJECT,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM? 
ELSE 

REMARK  DID  NOT  FIND  YOUR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM"' 
ENDIF 

ACCEPT  ENTER  Y  FOR  YES  AND  N  FOR  NO'  TO  ANS 
STORE  ! (ANS)  TO  ANS 
IF  ANS  =  'Y  ' 

DO  BORPROJ 
LOOP 
ELSE 

STORE  'Z'  TO  TRY 
LOOP 
ENDIF 
ENDIF 
ENDIF 

STORE  0  TO  RECPT 
STORE  '  Z  TO  TRY 
ENDDO 

»  END  OF  MAIN  DO  LOOP 
STORE  LNO+1  TO  LNO 
8  LNO, 3  SAY 
EJEL  r 

SET  FORMAT  TO  SCREEN 
RETURN 


E67 


*  PRINT  TEST  RESULTS  FOR  A  GIVEN  PROJECT  OR  SITE  BY  BORING  BQRRESUL . F'RG 
SAVE  TO  ALLVAR 

CLEAR 

STORE  T  TO  TRY 

*  MAIN  DO  LOOP 

DO  WHILE  TRY  <>  Z' 

ACCEPT  'ENTER  P  TO  LIST  FOR  A  PROJECT  NAME,  OR  S  TO  LIST  FOR  A  SITE'  TO  WANT 
STORE  1 (WANT)  TO  WANT 
IF  WANT  =  P 

ACCEPT  ENTER  PROJECT  NAME'  TO  PROJM 
ELSE 

store  'S'  to  want 

ACCEPT  ENTER  SITE  NAME'  TO  SITEM 
END  I F 

SELE  PRIMARY 

USE  BORSID  INDEX  BORSIDN 
SELE  SECO 

USE  BORRSL  INDEX  BORRSLI 
SET  PRINT  ON 
7?  CHR (27) +“F" 

??  CHR (15) 

??  CHR (27) +“0" 

SET  PRINT  OFF 
STORE  1  TO  PAGENO 
SET  FORMAT  TO  PRINT 
IF  WANT  =  'P' 

STORE  ! (PROJM)  TO  PROJM 

@  3,5  SAY  'SUMMARY  OF  TEST  RESULTS  FOR  PROJECT:  ' 

@  3,42  SAY  PROJM 
ELSE 

STORE  I (SITEM)  TO  SITEM 

@  3,5  SAY  'SUMMARY  OF  TEST  RESULTS  FOR  SITE:' 

@  3,39  SAY  SITEM 
ENDIF 

@  5,1  SAY  'ELEVATION' 

@  5,13  SAY  DEPTH' 

@  5,20  SAY  'TEST  NAME ' 

@  5,31  SAY  'TEST  DATE' 

@  5,42  SAY  MATERIAL' 

»  5,53  SAY  RESULT  1  ' 

@  5,68  SAY  RESULT  2' 

@  5,83  SAY  RESULT  3' 

8  5,98  SAY  RESULT  4' 

@  6,53  SAY  REMARKS' 

STORE  8  TO  LNO 
STORE  0  TO  RECPT 
SELE  PRIM 
IF  WANT  =  'P' 

LOCATE  FOR  ! (PROJ : NAME )  =  PROJM 
STORE  SID  TO  BORSIDN 
STORE  STR (SID, 5,0)  TO  BORSIDC 
STORE  TOP: HOLE  TO  TOPELM 
ELSE 

LOCATE  FOR  ' (SITE: NAME)  =  SITEM 
STORE  SID  TO  BORSIDN 


STORE  STR ( S I D , 5 , 0 )  TO  BORSIDC 
STORE  TOP: HOLE  TO  TOPELM 
ENDIF 

DO  WHILE  .NOT.  EOF 
SELE  SECO 
FIND  'IfBORSIDC 
IF  #  < >  0 

0  LNO , 3  SAY  '  BORING  NO. :  ' 

0  LNO, 15  SAY  BOR  ID 
0  LNO ,33  SAY  'SID:  ' 

0  LNO, 38  SAY  SID  USING  '99999' 

@  LNO, 45  SAY  ' TOP  ELEV. : ' 

0  LNO, 56  SAY  TOPELM  USING  99999.99 
IF  WANT  =  'P 
0  LNO,  70  SAY  "SITE:  ' 

0  LNO, 76  SAY  SITE: NAME 
ELSE 

0  LNO, 70  SAY  PROJECT:  ' 

0  LNO. 79  SAY  PRO J : NAME 
ENDIF 

STORE  LNO+2  TO  LNO 

DO  WHILE  SID  =  BORSIDM  .AND.  .NOT.  EOF 
0  LNO , 1  SAY  TEST:ELEV 
0  LNO, 12  SAY  T3T: DEPTH 
0  LNO, 20  SAY  TEST : NAME 
0  LNO. 31  SAY  TEST : DATE 
0  LNO, 42  SAY  TEST : MAT 
0  LNO. 53  SAY  TEST : RES  1 
0  LNO, 68  SAY  TEST : RES2 
0  LNO, 83  SAY  TEST : RES3 
0  LNO, 98  SAY  TEST : RES4 
STORE  LNO+1  TO  LNO 
0  LNO,  53  SAY  REMARKS 
STORE  RECPT+1  TO  RECPT 
STORE  LNO+1  TO  LNO 
SKIP 
ENDDO 

STORE  LNO+1  TO  LNO 
ENDIF 

IF  LNO  >=  60 
0  LNO+2. 62  SAY  PAGENO 
STORE  PAGENO  +  1  TO  PAGENO 
IF  WANT  = 

0  3,5  SAY  'SUMMARY  OF  TEST  RESULTS  FOR  PROJECT: 

0  3,42  SAY  PRO JM 

0  3,83  SAY  '  (CONTINUED)  ' 

ELSE 

0  3,5  SAY  SUMMARY  OF  TEST  RESULTS  FOR  SITE: 

0  3,39  SAY  SITEM 

0  3,80  SA"  '  (CONT. )  ' 

ENDIF 

0  5,1  SAY  ELEVATION  ’ 

0  5,13  SAY  DEPTH ' 

0  5,20  SAY  'TEST  NAME 
0  5,31  SAY  '  TEST  DATE 
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@  5,42  SAY  ‘MATERIAL' 

@5,53  SAY  RESULT  1  ' 

@  5,68  SAY  'RESULT  2' 

@  5,83  SAY  RESULT  3' 

@  5,98  SAY  'RESULT  4' 

@  6,53  SAY  REMARKS' 

STORE  8  TO  LNO 
END  I F 
SELE  PRIM 
CONTINUE 

STORE  SID  TO  BORSIDM 
STORE  S T R ( S I D , 5 , 0 )  TO  BQRSIDC 
STORE  TOF'sHOLE  TO  TOPELM 
tNBDO 

IF  RECPT  =  0 
IF  WANT  =  P' 

REMARK  DID  NOT  FIND  YOUR  PROJECT,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM 
ELSE 

REMARK  DID  NOT  FIND  YO’JR  SITE,  DO  YOU  WANT  A  LIST  TO  REENTER  NAME  FROM? 
ENDIF 

ACCEPT  ENTER  Y  FOR  YES  AND  N  FOR  NO'  TO  ANS 
STORE  1 (ANS)  TO  ANS 
IF  ANS  =  Y' 

DO  BORPROJ 
LOOP 
ELSE 

STORE  Z '  TO  TRY 
LOOP 
ENDIF 
ENDIF 

STORE  'Z'  TO  TRY 
ENDDO 

*  END  OF  MAIN  DO  LOOP 
STORE  LNO+1  T0  LNO 
0  LNO, 3  SAY  '  ' 

CLEAR 

RESTORE  FROM  ALLVAR 
EJECT 

SET  FORMAT  TO  SCREEN 
RETURN 
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*  PRINT  A  TABULAR  LOG  OF  TEST  RESULTS  FOR  A  GIVEN  BORING 
STORE  ' BORRSL  INDEX  BORRSL I  ‘  TO  BFILE 
store  'A'  to  repeat 
DO  WHILE  repeat  <>  S' 

DO  BORFIND 
FIND  ' &BORSIDC  ' 

IF  *  =  0 

accept  'NO  DATA  FOR  THIS  BORING,  DO  YOU  WANT  TO  ENTER  ANOTHER9  Y  OR  N'  TO  ANS 
store  1 (ans)  to  ans 
IF  ans  =  '  Y  ' 

LOOP 

ELSE 

USE 

SET  FORMAT  TO  SCREEN 
RETURN 
END  IF 
ENDIF 

STORE  'S'  TO  REPEAT 
ENDDO 

SET  PRINT  ON 
99  CHR ( 27 ) + " P " 

?9  CHR (15) 

SET  PRINT  OFF 

SET  FORMAT  TO  PRINT 

8  3,10  SAY  PRO J : . ' 

8  3,17  SAY  PROJM 
8  3,60  SAY  SITE:  ' 

8  3,66  SAY  SITEM 

8  5,5  SAY  'TEST  RESULTS  FOR  BORING:' 

8  5,31  SAY  BOR  I D 

8  5,48  SAY  'SIDs  ‘ 

8  5,52  SAY  BORSIDM  USING  '99999' 

8  5,60  SAY  'TOP  ELEV:  ' 

8  5,70  SAY  TOPELM 

8  7,1  SAY  'ELEVATION' 

8  7,13  SAY  DEPTH' 

8  7,29  SAY  'TEST  NAME' 

8  7,31  SAY  'TEST  DATE' 

8  7,42  SAY  MATERIAL' 

8  7,53  SAY  RESULT  1  ' 

8  7,68  SAY  'RESULT  2' 

8  7,83  SAY  RESULT  3' 

8  7,98  SAY  'RESULT  4' 

8  8,55  SAY  'REMARKS' 

STORE  10  TO  LNO 
STORE  0  TO  PRNT 

DO  WHILE  SID  =  BORSIDM  .and.  .not.  eof 
8  LNO, l  SAY  TEST: ELEV 
8  LNO, 12  SAY  TST : DEPTH 
8  LNO, 20  SAY  TEST: NAME 
8  LNO, 31  SAY  TEST : DA  TE 
8  LNO, 42  SAY  TEST : MAT 
8  LNO, 53  SAY  TEST : RES  1 
8  LNO, 68  SAY  TEST : RES2 
8  LNO, 83  SAY  TEST : RES3 


